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00000] TITLE DCMC2]. *REV AP CLA TEST (SAF) 
000002 * 
oe 000003 * 
. 000U04 * DESCRIPTION; 

( 000005 * 

“Win 000006 * THIS T&V PROGRAM VERIFIES PROPER OPERATION OF THE LEVEL 6 COMMUNICATION LINE 
000007 * ADAPTERS» WHIGH ARE ATTACHMENTS TO THe DUALLINE COMMUNICATION FPTOCESSOR, 
000006 * 

000009 * THE SUBSYSTEM ITEMS SUPPORTED BY THIS PROGRAm ARE: 
000010 w 
00001] * DLC910] DUALLINE COMMUNICATION PRUCESSOR 
000012 % OLC9102 DUALLINE COMMUNICATION PRUCESSOR 
000013 % DLC9103 DUALLINE COMMUNICATION PRUCESS@OR 
000014 * 
000015 * REVISION HISTORY; 
000016 * 
000017 * REV DATE 
000018 % A FEB 78 ORIGINAL RELEASE 
000019 * 
000020 JI IIIT TTT ETI TTT TT TO TIE 
00002] * THIS DUCUMENT AND THE INFORMATION CONTAINED 
Q00022 * THEREIN 15 CONFIDENTIAL AND PROPRIETARY TO AND THE 
000023 % EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION 
000024 % SYSTEMS INC. IT 45 MADE AVAILABLE UNLY TO HONEY~ 
000025 * WELL AUTHORIZED RECIPIENTS FOR THEIR USE SOLELY JIN 
000026 % THE MAINTENANCE AND OPERATION OF HOWE YWELL 
000027 % PRODUCTSe THIS DOCUMENT AND INFORMAIION MUST BE 
000028 * MAINTAINED IN STRICTEST CONFIDENCES IT MUST NoT 
000029 * BE REPRODUCED IN WHOLE OR IN PART$3 AND IT SHALL 
000030 * NOT BE DISCLOSED TO ANY OTHER PARTY WITHOUT THE 
00003] % PRIOR WRITTEN CONSENT QF HONEYWELL 
000U32 % vt 
000033 * PROGRAM PREPARATION; 
000034 * 
000035 % 
000036 w THE ROUT SUURCE OF THIS PROGRAMs AFTER THE ADDITION OF APPROPRIATE 
000037 w TITLE AND ENV STATEMENTS» WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 
000038 * TO CREATE EJ THER SHORT OR LONG ADDRESS FORM (SAF OR LAF) OBJECT TEXT 
000039 * AND LISTINGe THE OBJECT TEXT WAS FURIHER PRUCESSED BY THE HOST RESTDENT 
000040 % LINKER USING THE APPROPRIATE CONSOLE ZVSLIB LIBRARY TU CKEATE A PUNCH 
000041 % SEGMENT CONTAINING AN EXECUTABLE MODULE. THe ASSEMBLY LISTING WAS 
000U4<. % AUGMENTED WITH CROSS REFERENCE DATA PLUS THE LOAD MAP FROM THE LINKER 
000043 ® TO CREATE A LIST SEGMENT. 
000044 * 
000045 * ROOT SAF LAF 
000046 % nome “oe con 
000047 % NAME DCMX1] DCMS1 vCML 1 
000048 * DOCUMENT XXXXXXXX-9001] XXXXXXXX=OVL AXXXXXXXeOQ A 
000049 * 
000050 * : 
; 000051 * PROGRAM DISTRIBUTION: 

Gs Tek 0U0U5< * 

000053 * 

{ Q00054 # THE ELEMENTARY ITEMS SUBMITTED TO THE T&V PROGRAM DISTRIBUTION CENTER 
000055 * WERE THe EXECUTABLE PUNCHED CARD DECKS OF DMS AND DCML1s AND MAGNETIC 
000056 * TAPE IMAGES UF THE AUGMENTED LISTINGS, 

000057 * 

000058 % REPRODUCTIONS OF THE EXECUTABLE CARD DECKS MAY BE AS DUPLICATE CARD DECKS 
000059 # OR AS MEMBER "VL" OF A MULTIPLE MEMGER FILE. IN THE MOST FREQUENT CASE 
OOVUGD * IT. WILL BE. FUUND_AS MEMBER VEL WITHIN FALE PROGFILE OF A DISKETTE VOLUME 
00006] * ENTITLED DIAGS. 

000062 # 

000063 # DISTRIBUTION OF THE LISTINGSs WHICH SHUULD oE AVAILABLE IF ANY COMPLEX 
000064 * MAINTENANCE UR REPAIR JS TO BE PERFORMED, I> NORMALLY MALt AS A 

000065 % PRINTED COPY. 

000066 % 

000067 * 

000066 *% ROUTINE DEMONSTRATION; 

000069 % 

000070 % 

00007) * A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION mAy BE UBTAINED BY 
000072 * ANSWERING TH QUESTION *"NEXT®# WITH AN #At® AND COMPLETING ONE PASS. 
000073 * 

000074 % 

QQ000T5 * MAIN MEMORY REQUIREMENT 

000076 % 

Q00gOoT? % 

000078 * THIS PROGRAM REQUIRES 8K WORDS OF MAIN MEMORY AND wILL USt 

Q0Q0T9 * ALL OF AVAILABLE MEMORY THROUGH 8K WORDS, 

Q00080 % 

00008] FU III III TT TT TTT TT TTT 
000082 % 

000083 # 

000084 *® TEST PROCECKUURE 

000085 w 

000086 * 

000087 % BEFORE KUNNING THE CLA TEST» THE MOTHER BOARy TEST (pCMC1) 

000088 w SHOULD BE RUN TO MAKE SURE THE DLCP IS OPERATING CORRECTLY. 

000089 * 

000090 * THE PROGRAM AUTOMATICALLY TEST ALL CLA*S WHICH ARE LISTED ABOVE 

00009] % UNDER DESCRIPTIONe IT PROCEEDS TO EXERCISE ALL THE LINE ADAPTER 

000092 % FUNCTIONAL TESTS IN LOOP. BACK MODE. 

000093 * 

000094 * THE TESTS ARE SET UP SO THAT ALL THE CLA*S ARE TESTED ACCORDING TO A 
000095 * PARTICULAR FUNCTION, SOME OF THE FUNCTIONAL TESTS INCLUDE CHARACTER 
000096 # SIZE TEST» LINE SPEED TEST. PARITY ANU CRC TeSTe AND UNDERRUN AND 
000097 * OVERRRN TESTe 

000098 * 

000099 % 

000100 * 

00010} * OPERATING INSTRUCTIONS 

000102 * 

000103 * 

000104 % LOAD AND START (OR RESTART) THE PROGRAM, THE PROGRAM IDENTIFICATION WILL 
000])05 w BE DISPLAYEW ON THE CONSOLE. THE INITIAL START wILL ALSU DISPLAY; 
000106 * : 

000107 * THE £VSLI6 REVISION NUMBER 

000108 “* THE ADDRESS FORM (SAF OR LAF) 

000109 ® I/O EQUIPMENT DETECTED IN THE SYSTEM 

000110 * MEMORY SIZE 

00011] * 

O00Ll. * THIS DISPLAY MUST BE VERIFIED BY THE OPERATOR. THIS DISPLAY IS OMITTED 
000113 * ON RESTARTS. 
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000114 
000115 
000116 
000417 
000118 
000119 
Q00120 
00012] 
000122 
000123 
000124. 
000125 
000126 
000127 
000128 
000129 
000]30 
00013) 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
00017] 
000172 
000173 
000174 
000175 
000176 
000177 
00017 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
0001] 88 
000189 
000190 
00019] 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
00020) 
000202 
000203 
000204 
000205 
000¢06 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000¢21 
000222 
000223 
000224 
000225 
000826 


CLA TEST (SAF) 
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THE CONSOLE SEARCH RULES ARE; FINO THE CONSOLE wITH THE LOWEST CHANNEL 
NUMBER CONNECTED THRU A DMC CONTROLLER. j{F THERE IS NO CONSOLE ON A 
DMCs THEN SEARCH FOR A. TERMINAL WITH THE HIGHEST CHANNEL NUMBER ASSIGNED 
TO AN ACLA ADAPTER ON A DLC CONTROLLER, IF NO ASYNC ADAPTER 1S FOUND, 
THEN GO TO THE FULL CONTROL PANEL. 


THERE ARE THREE CONSOLE CHANNEL OPTIONS DETERMINED BY THE VALUE OF LO- 
CATION "ZVSTTY". 


IF ZVS$TTY EQUALS (0000)+ SEARCH FOR A CONSULE. 

IF Z2VSTTY EQUALS (FFFF)« ASSUME THERE IS NU CONSOLEe 

IF ZV$TTY EQUALS NEITHER (0000)» NOK (FFFF)»s THEN IT 1S THE CONSOLE CHAN} 
NEL. NUMBER. NOTE} DEFAULT IS TO SEARCH FOR A CONSOLE. 


ALL CONSOLE 1/0 JS EVEN PARITY. IF CONSOLE 15 ON DLC»® IT MUST BE ASYNC 
AND THE BAUD RATE SET AT 1200 TO MAICH THE PROGRAM SUPPLIED RATE. IF IT 
TS NECESSARY TO CHANGE THE PROGRAM BAUD RATE, THEN THE NEW BAUD RATE 
CODE SHOULD BE PUT INTO LOCATION "ZVSBUD" {N HEX, THE TERMINAL BAUD RATE 
MUST BE SET TO MATCH. THIS NEW BAUD RATE. THE CORRECT HEX VALUE MAY BE 
OBTAINED FROM THE FOLLOWING TABLE. 


* 
BAUD RATE TABLE * 
* 


FE ce ae 0 ge 00 ae > ae OO a On ae ED OF EP om OH ED OD OD Om > > Oe ae cat Om 0 Om em OP oe Paw 9 On oe ew OP ae TE 


® ACLA TeDek (2118) (2110) E(2108) 
* BAUD@RKATE 


xe KKK KOK ROKR KKK KK RK RK EKO KEKE KE KOK EK KEK KR OK KOK EK KR EE KKK KK KK RIK OK OR KOK KOK KO KK KK OK RK KKK KK EK OK OK KOKO 


90 E QO EE 1 
75 E hook&k @ ‘ 
110 E 2 Et 3 
134 E 3 Ek 4 
150 E & Ek 5 
200 € 9 EG won 
300 E 6 E& 6 
600 E 7 Et 7 
900 EE we bE 8 
1050 £ BEL w-= 
1200 € 9 EE 9 
1800 E 1Q (A) EE 10 (A) 
2000 E il (bo) EE ae 
2400 FE l2 (C) & 11 (B) 
3600 E owe~ EE 12 (C) 
4800 —E 13 (0b) EE 13 (dD) 
7200 E »e-- EE 14 (E) 
9600 E 14 (—) EE 15 (F) 
19200 E 15 (F) bE ‘www 


TO MAKE ANY OF THE ABOVE CHANGES, LOAD ANU HALT THE PROGRAM BEFURE EX= 
ECUTION,. INSERT CHANGE THEN EXECUTE. MEMURY LOCATIONS UF "ZVSTTY" AND 
"ZVSBUD" MAY BE FOUND IN MAP AT END OF LISTINGe 

CONSULT LEVEL=6 T&V MANUAL "AW94" FUR DETAILS ON HOW TO LOAD THE TESTS. 


THE FOLLOWING IS A TYPICAL RESULT OF LOADING AND STARTING TO RUN THE 
PROGRAMes 


CLA TEST <PGM NAME> <PGM DATE> <PGM REV> 
ZVSLIB REVe 600 

ZVSAF=_1 <a> 

WOT 

CHAN DEVE 1D 

0400 vSKT 2010 

0480 OSKT 2010. 

0580 COR 2008 

1200 DISC 2330 

1280 DISC 2330 

1300 LPT 2000 

1380 CONS 2019 

MEMORY LOW 00002B2D 
MEMORY HIGH QO003FFF 16K 


THE PROGRAM WILL THEN AS<; 


POWER LINE FREQe ?;3 


THE OPERATOR NOW ENTERS THE POWER LINE FREQUENCY JN DECIMAL 
FOLLOWED BY A CARRIAGE RETURN» THE DEFAULT 1S 60 HERTZ» 
IF THIS 15 DESTRED A CARRIAGE RETURN 1S ENTERED. 


NEXT THE PROGRAM WILL DISPLAY: 


DLC CHANNEL (S) ?;3 


AT THIS TIME THE CHANNEL (S) OF THE LINE(S) YUU WANT 

TO TEST SHOULD BE ENTEREDsFOLLOWED BY A CARRIAGE RETURNe 

THE CLA CHANNEL (S) WILL NORMALLY BE DISPLAYEY AS aN ITEM(S) IN THE 
CONFIGURATION PRINTOUT. 


THE PROGRAM WILL THEN RESPOND WITH; 


NEXT ?3 


THE OPERATOR HAS TO ENTER ONE OF THE FOLLOWING LETTERS; 


HAY © RUN LINE(S) WITH INTERNAL LOOP TESTS 
"CW © RUN LINE(S) WITH CONNECTOR LOOp TESTS 


IN ORDER TO RUN WITH "Cr SELECTED» AN EXTERNAL LOOP CONNECTOR 
MUST BE ATTACHED TO THE LINE ADAPTER(9) EITHER AT THE 

LINE ADAPTER CONNECTOR OF THE END OF THE CABLE. THE REQUIRED 
EXTERNAL LOOP CONNECTOR AND INSTRUCTIONS FOR ITS USE ARE 
DESCRIBED IN EACH LINE ADAPTER*S PRODUCT MANUAL. 


TF THERE JS NO CONSOLE PRESENT REFER TU "SERIES 60 
LEVEL 6 MODEL 34/36 T & V OPERATING INSTRUCTLON 

MANUAL" ORDER NU. FL39 FOR INSTRUCTIONS ON ENTERING DATA 
AND INTERPRETING PKOGRAM MESSAGES. 


THE PROGRAM WILL RUN APPROXOMATELY 1 MINUTE FER ASYNCHRUNOUS LINE AND 
30 SECONDS PER SYNCHRONOUS LINE. 
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000227 * DURING THE LINE SPEED TEST THE PROGRAM WILL PRINT OUT THE SPEED AT WHICH 
000228 # THE SYNCHRONOUS LINE (S) ARE TESTED AT WITHIN 3% OF THE ACTUAL SPEED. 
0002829 % ASYNCHRONOUS LINE(S) ARE TESTED AT ALL SELECTABLE BAUD RATES. 
000230 * . 

000¢31 % IF THERE ARE NO FAULTSe IT WILL THEN VISPLAY; 

000232 * . 

000233 : PASS 

0 0% 34 . - faa: Me 
ieee * THE PROGRAM WILL CONTINJE AND TYPE “PASS*" wITH NO HALTS BETWEEN PASSES. 
000236 % TO RESTART; START THE PROGRAM AT HEX 100 

000237 * 

000238 * 

000239 ® ERRQR REPORTS 

000240 * 

00024} * ERRORS WILL CAUSE THE PROGRAM TO HAL Te AN ERROR MESSAGE WILL 
00024¢. % BE DJSPLAYED IF A CONSOLE IS PRESENT, 

000243 * . . 

000244 * ERROR DISPLAYS ARE AS FOLLOWS; 

000245 * 

000246 * ERR YP @ ZZZZ 

000247 * 

000246 * B7 86 BS b4& B3 B2 Bb1 

000249 * RT R6 RS RE RZ RE RIL M 

000250 * 

000251 * Y = TEST TYPE 

000252 * P = LINE NUMBER 

000253 % 2222 = ERROR LOCATION IN LISTINGe HAS CUMMENT 

000254 * GIVING FAILING FUNTION.) 

000255 *% 

000¢56 * Bleb7s+ le Rl@R7» M ARE CONTENTS OF REGISTERS, 

000257 * INTERPERTATION OF THESE IS FOR SPECIALIST USAGE, 

000258 * tan 

000259 * IN ALL CASES} 

0U0260 * : 

00026} * R3 = CHANNEL NUMBER 

000262 % 

000263 * IN GENERAL 

000264 * 

000265 * R6 = SHUULD BE DATA 

000266 * R5 = ACTUAL DATA 

000267 * R7 =. WORD NUMBER IN BLOCK TRANSFER 

000268 * 

000269 * ; 

QU0Z TO KKK KERIKERI KK II KKH KIM HIKER KHER KKH KEEEEEEKREKEKEKE 
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00027] 
O00LTe 
000273 
000274 
000275 
000276 
000277 
00027%& 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 


000287 
000288 
000289 


000290 
000291 
000292 
000293 
000294 
§ 000295 
000296 


000297 
000298 


000299 


000300 
000301 
000302 
000303 
000304 
000305 
000306 


~ 000307 


000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
000326 


000327 
000328 


000329 


000330 
000331 
00033¢ 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 


000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 


OOFF 
OQOFF 


0100 
0105 


Q105 
0107 
0109 
0106 


O1O0C 
O10E 
0110 
Olll 
Oll2 
0114 


0115 
0116 
04117 
Olls 


O119 
O1l6 
O11D 
Olle 


OLLF 
Ole) 
0123 
0124 


0125 
0126 
Ol2s 
OlZA 
O12Cc 
0120 
Ol2F 
0131 
0132 
0134 
0136 
0138 
0139 
0136 
O13C 
O13E 


0140 
0142 
0144 
0145 
0246 
0147 
C148 


O14A 
O14C 
O1l4E 
O14F 


0150 
0152 
0154 
0155 
0156 
0157 
0158 
Q15A 
O1sC 
O1LSE 
0160 
0162 
0163 
0164 
0166 
Ol6s 
0169 
O16A 
016B 
016C 
016D 
O1l6E 
0170 
O1L72 
0173 
O1L74 
0176 
Q177 
0179 


0000 


0000 


0100 
OF8C 


FOFO 
D380 
8700 
OF 87 


. FBCO 


b380 
OF 80 
1300 
8980 
O9AC 


8C5]1 
8201 
2000 
050D 


FBCO 
D380 
OF 80 
1339 


FBCO 
b380 
OF 80 
1119 


8756 
F870 
F300 
EFOO 
8756 
F370 
FFOO 
7000 
F370 
FFOO 
EFOO 
8756 


F800 


TFOA 
F300 
FFOO 


FBCO 
b380 
OF 80 
1186 
LI9A 
125C¢ 
FEOO 


FBCO 
D380 
OF&O 
13268 


FBCO 
0380 
OF 80 
118E 
1258 
8752 
AB80 
CB80 
CFeO 
CB80 
CF80 
986E 
1931 
9570 
9970 
0302 
OF 96 
LEZ 
8055 
0051 
C855 
0570 
D970 
098D 
8851 
8570 
3047 
CF30 
9570 


"REV At 


0001 
0000 
0000 


0003 
0000 


1116 


0003 
Qo00o 


0003 
0000 


C350 
1119 
1125 


0064 
1110 


OOOA 
lil 
lli2 


Lies 


1119 
1113 


0003 
0000 


1108 


0003 
0000 


0003 
0000 


118E 
L25F 
0000 
0192 
0000 


FFCO 
030 


FFOO 
3100 
03co 


1186 
FCOO 


CLA TEST 


mK 


(SAF) 


/ 
ZERO 


STP 


NTYR 


*e & 


SALT 


RCK1 


EGU 


CALL 


CALL 


SwWR 
CALL 


CALL 


CL 

LAG 
LAB 
STb6 
LAB 
9TB 
LOR 
BEZ 
AND 
CMR 
86 


6 
ADV 
10 


LOR 
AND 
CMR 
BNE 
LOR 
AND 
20R 
STR 
AND 
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$ 

ZHNTSAsZHTH15sZVSHR 
ZHISALs ZHIAFB 
ZHWUTCeZHRTCCoZVSTTY 
ZHRTCI oe ZHRTCL 


ZHPFR»ZHCOMM 
ZERUSXIFFE 


NO &ERRUR FOUND IN DLCC 


OPERATOR MUST ENTER CLA ADDRESS 


$ 

>STP 
ZERU+X* 1L05¢ 
ZVSKD LZVSIZ 


<ZV3STTY 
>NTYR 
ZVSRD eMESG 


<FWFG 
>EDLINT 


z$RIh 
=$R1lezZ*20008 


>CP40 
ZVS$QC aMESGY 


ZVSID oHRTZ 


=$R6 
$R79=29C350? 
SRT e<HRTZ 
$RO69«TLOC 
SRO 
$R7e=100 
SRT s<DIVI 
SRT916 
SRT 9z10 
SRT 9<DIV2 
$R69<DIV3 
z$R6 
$R79<TLOC 
$R7_s10 
$R7o<HRTZ 
SRT 9<DIVG 


BRANCH .TO NORMAL RUN 
INITIALIZE FOK NON-CONSOLE USE 


CLEAR CONSOLE CHANNEL 


ASK FOR POWER LINE FREQe 


ASK ONLY ON 6/36 AND 3/34 


FIND NUMBER OF MILSECe IN RTC TICK 


INITIALIZE THE ACTIVE LINE TABLE 


INITIALIZE THE LINE ADDRESS TABLE 


ZVSF sATLT 9CPFLG430C16 


$R7o<CHANL 

ZV$SQCeMESG7T 

ZVSIHeADDRS C8 

BSRe CLEAR INVEX . 
$62+<ADDRS LOAD $62 WITH ADDRESS OF ACTIVE LINE TABLE 
$B49<TSAL SET UP FOR TRAP ON 

$B4e<SZHNTSA UNAVAILIABLE RESOURCE 
$B46<NODEVF 

$B4_9<ZHTH15 

S$R1eS$B2e45R2 LOAD AVDRESS FROM TABLE 
$R19>CON3 ; 

SRL ee Z*FFCOP STRIP CHANNEL WITH HEX FFCO 
$Rloex*3Cor COMPARE CHANNEL WITH HEX 3C0 
>RCK1 BRANCH IF GREATER 

>DEVNF CHANNEL NUMBER TO SMALL 
$R19FX*268 PUT FUNCTION IN 

3$R59zSR] INPUT VEVICE NUMBER 

$R4e=55R5 

SRSesZ*FFOO? 

$R59eZ2°*31008 COMPARE DEVICE NUMBER RESPONSE 
>DEVNF 

$R3 FSR] SET $R3. FOR INDEX OF LINE NUMBER 
SRI 9aX*3COP 

$R3o7 . 
$R4e<ATLTeSR3 - STORE 1D INTO ACTIVE LINE TABLE 


$R1leeZ*FCOO! 


sue Se Hd es 
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000353 O17b6 9FOO 1108 : STR $R1e<CHANL 
000354 O17D OFBO U162 B <SALT 
000355 * 
000356 DEVNF CALL ZVSTICoERMGL DLCC NUT FOUNY ON THIS AVDRESS 
O17F FBCO 0003 
0181 b380 0000 xX 
0163 OFBO 
0184 1366 
000357 0185 88B8bd2 DEC z$R2E 
000356 Ol86 9820 118E LOR $K19<ADORS.$R2 STORE ADURESS THAT FAILEV 
000359 O188 9FOO 1125 PDRS STR $R1e<TLUC 
000360 CALL: ZVSTHeTLOC PRINT ADURESS THAT FAIL 
018A FBCO 0003 
018C b380 0000 x 
O18E OF8O 
OL8SF 1125 
000361 0190 UF8O 0140 'e) <EDLINT 
000362 * 
000363 0192 8755 NODEVF CL =$Rd TRAP HANDLER KOUTINE 
000364 0193 0003 RTT 
000365 * 
000366 * 
000367 * 
000368 * 
000369 ba CHECK TO SEL IF THIS 19 A CLA I CAN TEST 
000370 * 
000371 0194 8751 CONS CL =$R] CLEAR INVEX 
000372 0195 AbB8O 1186 LAB S$B29<ATLT 
000373 0197 9880 117F LAB $81<bITO 
000374 0199 2eCFé6 CAR LDV $R29e-10 
000375 G19A CB5E RON LOR $K4o$620e+5R1 
000376 QO1968 1009 CMV $R19—959 
000377 O19C 0910 BE >CONZA 
000378 O19b 4970 BEL $R4—>KON 
000379 O19 C92] CYN CMR $R4—9SBb165R2 
000380 GiSF OSTA BE >CAK 
000381 Q1AQ 2T7FE BINC $RZe>CYN 
000382 CALL ZVSTCeERMG2 
OLAL FBCO 0003 
QO1A3 0380 0000 x 
Q1lAd OFBO 
QlAG 1376 
000383 O1A7 88b] DEC =$R1 
000384 O1A8 1007 SOL oR1o7 
000385 QO1A9 9400 1108 OR $R1—o<CHANL 
000386 O1As OFDD 6b >PDRS 
000387 * 
000388 O1AC 2CF4 CON3A Lov $RZ9F-12 NUMBER OF 1/0 TO BE CHANGED 
000389 QU1LAD 9800 118E LOK $K1L9<ADURS LOAD $Kil WITH ADDRESS OF CLA ACTIVE 
000390 OlAF bDB80 1106 LAB $B5y<FIVel PUT ADURESS OF CONTROL TABLE IN $65 
000391 U1B] C870 O03F ALL LDR S$R4ezXtZFE LOAD MASK TQ CLEAR CHANNEL 
000392 U1B3 9570 FCOO AND SR1loeeZ*FCOO? CLEAR SUBCHe. & FUNCTION 
ye 000393 QO1B85 C525 ANU $R4eS$65e5RZ CLEAR CHANNEL 
‘ , 000394 Ol166 9454 OR DRI oe HSRG PUT CHANNEL NUMBER IN : 
000395 O1LB7 9F25 STR $R19SB5.SR2 STORE IT BACK IN CONTROL TABLE 
a 000396 O1688 e27F9 BINC $R29>ALL 
000397 O1b89 8700 LLIF CL <PSFG CLEAR PRINT SYNC. SPEED FLAG 
000398 U186 8700 1117 Cu <HGSOPD CLEAR HIGH SPEED FLAG 
000399 O1BD 8740 OF5A CL HISPO 
Q00400 O1B6F F900 1108 CMR SR7o<CHANL CHECK 10. ONLY PRINT ONCE. 
00040) 01C1 Q910 BE 2? INVD 
000402 * 
000403 * PRINT FIRMWARE REVe 
000404 * 
000405 U1C2 3001 SOL $R39) SHIFT $R3 TO ALIGN wITH CHANNEL NUMBER 
0004606 U1C3 C380 OAF3 LN $B49<GENITZ INITIALIZE CONTROLLER 
: 000407 UICS £380 UBS5SE LN $B69<RKDLCT READ LUCATION 1 IN LCT TU PRINT REV. 
000408 01C7 Q000 oC Oo. * ADDRESS 
000409 O1C8 Q002 DC 2 RANGE 
000410 * 
000411 O1C9 8780 Ll2E CLH <LCTV 
000412 OQ1CKB C800 112E L. DER DR4e<LCTV 
000413. 01CK CFOO 1LILEl OTR $R4_9<FRIMRV STORE FIKMWARcE REV NUMBER 
000414 Q1CF 490F BEZ $R4—5>INVD 
000415 CALL ZVSTCoFREV 
G1bQ FBCO 0003 
Qlb2 D380 0000 X 
Q1D4 OF8O 
0105 135C¢ 
000416 CALL ZVSTOeLCTV 
OlDe FBCO 0003 
0108 0380 0000 X 
VIDA OFBO 
OlbDb Ll2e 
000617 O1DC 8A8BO 1116 INC <FWEG SET FLAG TO INHIBIT PRINI OUT 
000415 % 
000419 * ASK WHAT MODE OF OPERATION 
00042U * 
00042] INVO CALL ZVSUC oMESG6 
Ul0E FBCO 0003 
O1EO0 0380 0000 xX 
OlE2 OFBO 
O1E3 1328 
000422 CALL  ZVSIAsTP2sTLOC 
OlES4 FBCO 0003 
VlEe6 0380 0000 Xx 
OlE8 OF8O 
OlE9 1127 
GQiEA 1125 
000423 OlEB® 7C08 LOV $R7 958 
000424 Q1EC b380 OB4C LNJ $65 9<TDLAY DELAY FOR DLC CONSOLE 
000425 OQOLEE CBg00 1125 LDR $R49<TLOC 
000426 O1FO 4048 SOR S$R4e8 SHIFT MOVE TYFE ANSWER OVER 
O0UK427 OLFL 4053 CMV GRGeaXISZ! JF *S* DO SHORT TEST ONLY 
000428 OlLF2 0900 O2l1E Be <SHTST 
000429 OUl1F4 4b43 CMV SR49=X9G3t IF *C® DO CABLE LOOP TES! ONLY 
000430 OFS 0900 O22F BE <CAKBLP 
00043] Ol1F7 4040 CMV SR4e=zXN4DE IF *M* GUO TO PATCH ROUTINE 
00043¢ Ol1F& 0900 0218 BE <PCH 
000433 Ol1LFA 4041 CMV SR4—ezEXt4]° IF *A® DU INTERNAL LooP TEST ONLY 
000434 Ol1FKB OU9E3 BNE >INVD 
000435 * 


000436 O1LFC 8700 1106 CL <COUNT 


TITLE DCMC2]s "REV AP CLA TEST (SAF) PAGE 6 


000437 O1FE 8700 112A CL <SHORT 
000438 0200 C870 C714 RTST LDR SR4eeLICTIAG?® STORE LINE COnTROL FOR INTERNAL LOOP 
000439 Od02 CFOO 1286 STR $R4e<LCILCR _ 
000440 0206 A380 0246 LNJ - $B29<LPTA TEST Ai GO To LOUp TEST £o™ 
000441 0206 A380 O2AF LNJ $B2 e<SPSYTC TEST Bs GO TU LINE SpEED TEST Mg z,/ 
000442 O208 A380 O3F1 LNJ $B29<CRPTB TEST OS GO Ty CRC AND PARITY TEST Ss 
000443 O20A A380 04D5 LNJ $B29<CHSZTD TEST Es GO Tu CHARACTER SIZE TEST 
000444 020C A380 052D LNJ SB2e<STBITE TEST Fi GO TU STOp BIT TES! 
000445 O20E A380 05B6 LNJ $62 4<PARERF TEST Gt GO Tu PAR] TY ERROR TEST 
000446 0210 A380 0617 LNJ $62e<STIOG TEST Hs GO Ty SIOp yO TESI 
0004647 0212 A380 O6EA LNJ $B2 »<UORNTH TEST Jt GO TU OVERRUN AND UNDERKUN TEST 
000448 0214 A380 OBE] LNJ $682 4<EDPCK 
000449 OQO2le OF8O 0200 ie) <RTST 
000450 * 
00045] PCH CALL ZVSPCH 
O2l8 FBFO 0001 
O2l1A 0380 0000 X 
000452 O2g1C OF80 O1DE © 's) <INVD 
000453 * 
000454 O2ZlE C870 C714 SHTST LOR $R4e5Z*C71 49 
000455 0220 CFOO 1286 STR $R4_<LCILCR STORE LINE CONTROL FOR INTERNAL LOOP 
000456 0222 CFOO 112A STR SR4_9<SHORT SET FLAG 
0004657 0224 A380 0246 e LNJ $B29<L PTA TEST As GO Tu LOOP TEST 
000458 0226 A380 O2AF LNJ $B29<SPSYTC TEST Bs LINE SPEED TEST 10 SET HIGH SPEED FLA 
000459 OQ228 A380 O3F1 LNJ $B29<CRPTB TEST Ds CRC AND PARITY TEST 
000460 O22A A380 0566 LNJ $B2 9 <PARERF TEST Gi PARITY ERROR TEST 
000461 O22C A380 OBE]1 LNJ - $B2_9<EDPCK PRINT PASS MESSAGE 
000462 O22E OFFO 3) >SHIST 
000463 * 
000464 O22F 4C07 CABLP LDV SR4 057 
000465 0230 CFOO 1106 STR $R49<COUNT 
000466 0232 8700 112A CL <SHURT 
000667 0234 C870 C314 RTST1 LOR " $R4,=29C3149 STORE LINE CONTROL FOR CONNECTOR LOOP 
000468 0236 CFOO 1286 STR $R4e<LCILCR 
000469 * 
000470 0238 A380 0246 LNJ $B29<LPTA TEST As GO Ty LOUp DATA TEST 
000471 023A A380 O777 LNA $682 9<LPCBLK TEST Ke GO TU LOOP DSS IN DSC 
000472 0230 A380 0800 LAS $62 9<XMMSL TEST Ls GO Ty XMIT MARK & SPACE TEST 
000473 O23E 8880 1106 DEC <COUNT 
000474 0240 8980 110B CMZ <COUNT 
000475 O242 O9F2 BNE >RTOT1L 
000476 0243 A380 OBE] LNJ $B2 o<EDPCK 
Q00477 0245 OFEA i) >CABLP 
000478 tw ewe ew em ele ee Ce rr ee 
000479 * , 
000480 * DATA LOOP TEST 
000481 | * 
000482 0246 C870 4120 LPTA LOR BR4_gsATA 8 
000483 0248 CFOO 1364 STR $R4¢<ERMG+] 
000484 024A C870 0E18 LOR SR4o5XtE1B8 STORE FAST LIWE SPEED 
000485 O024C CFOO 128A STR R4e<LCTIS 
000486 O24E 6380 0988 LNJ $83 9<CLFG CLEAR ALL TEST FLAGS i 
000487 0250 68700 11IA CL <MASK SET MASK FOR <4VSC ; ‘< ee 
000488 O252 8700 128C Ck <LCLSYF CLEAR SYNC. FLAG FOR ASYNCe LINES \ p 
000489 0254 7006 LDV —s- SRTy36 NUMBER OF 30 MS DELAY ae: 
000490 * 
000491 * TEST ASYNCHRONOUS LINES WITH BAUD RATE 
000492 * AT 9600 BAUD» WITH 2 STOP BIIS 
000493 * ; 
. 000494 0255 9680 1176 Th LAB. $B19<ASYN1. GINE TYPE 
000495 0257 68380 0881 TIA LNJ $83 e<OTALOP 
000496 0259 OF85 8 >T2AA 
000497 O25A 1l2bda, DC <WwCP] 
000498 0256 1286 b¢ <LCT 1 
000499 O25C O03F OC (DFLT=-DOUT) RANGE IN WORDS 
000500 O250 ILI9GE o¢ <DOUT TRANSMIT BUFFER AUDRESS i 
000501 7 x | 
000502 * TEST CURRENT LOOP ASYNCHRONOUS 
000503 * 
000504 O25— 8980 1106 T2AA CMZ <COUNT IF CONNECTOR LOOP 
000505 0260 0900 0266 BE <T2 CHANGE SPEED TO TEST aT 9600 BAUD 
000506 0262 C870 OEF18 LOR SR4oEXTELBE 
000507 0264 CFOO 128A STR $R4e<LCTIS 
000508 0266 C871 T2 LDR $R49+SB1 LOAD 1V TYPE iNTO $R4 
000509 0267 C900 1177 CMR $R4_<ASYNC CHECK 10 SEE JF ALREADY VONE 
000510 0269 0902 BE >T2A 
000511 O26A OFED 6 >TLA 
000512 0268 T2A EQU $ 
000513 0266 8980 112A CMZ <SHORT 
000514 O26bd O9Al BNE >NCBL 
000515 O26E— C870 0118 LOR $R495X91188 CHANGE BAUD RATE TO 50 
000516 0270 CFOO 128A STR $R49<LCT15 
000517 O272 T7078 LDV S$R79z120 NUMBER OF 30 mS DELAY FOR DATA TRANSFER 
000518 * 
000519 * TEST ASYNCHRONOUS LINES WITH NEW BAU RATE 
000520 * AT 50 BAUDs WITH 2 STOP BITS 
000521 * 
000522 0273 C870 0018 T3 LDR S$R4oeX91 8" 
000523 0275 CFOO 128A. STR $R4_g<LCT1S 
000524 0277 9880 1176 LA $B1l¢<ASYNL LOAD LINE TYPe 
000525 0279 6380 0881 T3A LNJ $834<DTALOP LOOP SUB-ROUT INE 
000526 O027B OF85 is) >T4 
000527 O27C 1204 DC <wCP) 
000528 O270. 1286 | DC <LCT1 
000529 O27k 0007 DC 7 
000530 O27F IJ1lAE bc <bOUT1 
000531 i , 
000532 * TEST CURRENT LOOP ASYNCHRONOUS 
000533 * 
000534 0280 C871 T4 LDR $R40+$8) LOAD ID TYPE INTO $R4 
000535 0281 C900 1177 | CMR $R4y <ASYNC CHECK 10 SEE IF ALREADY DONE 
000536 0283 0902 BE >T4A 
000537 0284 OFFS B >T3A 
000538 0285 T&A EQu $ 
000539 0285 C800 1286 . LDR $R4e<LCILCR CHECK LINE CONTROL FOR CONNECTOR LOOP 
000540 0287 82D4 LB =SR49=Z404008 IF CONNECTOR LOOP SET DIRECT CONNECT BIT 
0288 0400 ; 
000541 0289 0505 BET >NCbL 
000542. 028A C870 CBl4 LDR $R4e9FZ*CB1L49 
000543 O28C CFOO 1288 STR $R4o<LCILCR 
000544 O28E— C870 3Al18 NCBL. LOR SR4e5X"3A1L88 PUT IN SYNC, CHARACTER TO TEST 
000545 0290 CFOO 128A STR $R49<LCTIS SYNCe LINE TYPES 


000546 0292 C870 O21C ; LDR . SR4esX*21C8 SET LCI SYNCe FLAG 


TITLE DCMC2s 


000547 
000548 
000549 
000550 
00055] 
00055¢ 
000553 
000554 
000555 
000556 
000557 
000556 
000559 
000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
00058] 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000596 
000599 
000600 
000601 
00060¢ 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000el2 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000626 
000629 
000630 
00063] 
000632 
000633 
000634 
000635 
000636 
000637 
000638 
000639 
000640 
000641 
000642 
000643 
000644 
000645 
000046 
000647 
000648 
000649 
000650 
00065) 
000652 
000653 
000654 
000655 
000656 
000657 
000058 
000659 


0294 
0296 


Uc97 
0299 
0296 
O29C 
029b 
O29E 
O29F 


O2ZA0 
O2Al 
O2A3 
O<A4% 


O2AS 
OZAT 
QO2ZA9 
O2AA 
O2AB8 
U2ac 
O2AD 


OZAE 


UZAF 
O2Bl 
0263 
0265 
0267 
0<cB8 
0289 
0<BB 
O2BC 
O2BE 
02C0 
O21 
VeC3 
O2Cs 
O2C7 
O2C9 
v2Cb 
O2Cb 
O2Ck 


O2v0 
O2b2 


0¢b4_ 


O2D6 


O2b8 
Q2DA 
0206 
O2bC 
O2DE 
O2E0 


OZE2 
O2E3 
O2ZE5 
O2E7 


O2E9 
OZEA 
O2ZEC 
O2EE 


O2FO 
O2Fe 
O2F4 


O2F6 
O2F8 
O2FA 


O2FC 
OZFE 
0300 
0301 
0303 


0305 
0307 


0309 


0308 


0300 
030F 


0311 


"REV At 


CFOO 128C 
TCeLD 


9B80 1178 
Bb380 0881 
OFB5 
12D4 
1286 
O02F 
LLAE 


C871 
©900 1179 
0902 
OFF5 


9B80 LLTA 
B380 0881 
OF85 
1204 
1286 
OU2F 
LIAE 


8382 


C870 4220 
CFOO 1364 
B380 0986 
C800 1119 
4002 

“EFS 
CFOO LILDF 
4€10 

CFOO L1EO 
C800 1119 
4FOA 

CFOO 1LIDE 
CB80 O2CD 
CF80 1281 
CBBO 127E 
CF80 0004 
BETO 8004 
4C0] 

CFOO 0000 


CB80 0306 
CF8O 1278 


BBO 1278 


CF80 000] 


8980 112A 
0996 
4COA 
CFOO 1120D 
8700 129¢ 
8700 1107 


4C18 

96880 1176 
EB80 LLF2 
6380 0318 


4C18 

9680 1177 
EB8O 11F2 
B380 0318 


C870 OFOO 
CFOO 1120 
EB80 1120 


CB80 0360 
CF8O 1276 


BABO 1107 


C870 O21C 
CFOO 129C 
4C08 

CFOO 1100 
C870 C1ls 


9880 1179 
B380 0318 


9880 1178 
B380 0318 


9880 LITA 
B380 0318 


8A80 L1LIF 


(SAF) 


QAl 


* 
T30 


PAGE 7 


oTR SR4e<LCLSYF 
LDV S$R79=45 NUMBER OF 30 MS DELAY FOR 800 BAUD 


TEST SYNCHRONOUS (3A AS SYNCe CHAR.) 


LAB Bl es<SYNC LOAD LiNt& TYPe 
LNJ $6839<DTALOP LOOP SUB-ROUT INE 
8 >T5 

bc <wCP 1 

DC <LCI1L 

DC (DFLT=—bOUT1) 

bC <DOQUT1L 


TEST BI=SYNCHRONOUS LINES (3A AS SYNCe CHAR.) 


LDR $R49¢SB1 LOAD ID fYPE {NTO $R4 

CMR $R4e<BI SYNC CHECK TO SEE iF ALREADY BONE 
BE >T6 

8 >QAl] 


TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR,) 


LAB $B1e<SYN1L83 LOAD LINE TYPE 

LNJ $B3s<DTALOP LOOP SUBROUTINE 

is} >130 , 

DC <WCP] 

bc <LCT1 

DC (DFLT=DOUT1) 

bc <DOUT 1 

JMP $B2 JUMP OUT OF LUOP TEST 


Ge en ae a a a ae i eo i ne nd 


SPSYTC 


SPSYT1 


* 


* * 


* & 


* 
STSPI 


** * 


* e * 


LINE SPEED TEST 


LDR SK4—ezAtB ? 

STR $R4e9<ERMGe] 

LNJ $839<CLFEG CLEAR ALL TEST FLAGS 

LDR SR4 oe <HRTZ CALCULATE THE LOW AND HIGH RANGE OF RTC TICKS 
SOL $R4o2 

ADV $R4 9528 

STR $R49<SECL 

ADV $R4eF1L6 

STR SR4&_9<SECH 

LDR $R49<HRTZ CALCULATE NUMoER OF RTC TICKS IN 5 SECe 


MLV $R4—210 

STR $R4o<FIVSEC 

LAB $B49<SPSYT1L SET UP INTERRUPT VECTORS AND 

STB $B49<1SA4P POINTERS TO CrANGE RUNNING LEVEL TO 4 
LAB $B4%e< 1 SA44+SAF 

Tb $B4 9 <ZHISAZ +4 *SAF 

LEV 5Z2"8004! CHANGE RUNNING LEVEL TO 4 

LDV $R4e51 SET RTC LEVEL TO 1 

STR $R49<ZHRTICL 


LAB $B49<NOSPD SET RUPT POINTER FOR RTC INTERRUPT 
2T8 $B849<ISAIP 


LAB $B49<1SAL+SAF SET RUPT VECTOR FOR LEVEL 1 RUPT 
STB $B4 9<ZHISAZ+SAF 


CMZ =< SHORT 
BNE >STSP1 


LDV $R49=10 STORE CHAR. S4ZE 

STR $R49<CSB 

CL <LC3SYF CLEAR SYNC. FLAG FoR ASYNCe LINES 
CL <BYTP SET BYIE POSITION TO ZERO 


TEST LINE SPEEDS FUR ASYCHRONOUS NEW BAUD RATE 


LOV SR495X"168 SET $R4 WITH FIRST SpEED TO TEST (ASYNCe) 
LAB $B1e<ASYNI] LOAD LANE TYPE 

LAB $B6e<NSPTBL LOAD AVDRESS UF CHAR, NUMBER TABLE 

LNJ $B34<SPDTLP 


TEST LINE SPEEDS FOR ASYCHRONOUS CURRENT LOOp 


~tOV SR4esX188 


LAB $B1e<ASYNC 
LAB $B6 9<NSPTBL 
LNJ $B39<SPDTLP 


LOR $R44=3840 SET RANGE FOR SYNC, LINES 
STR SR4 9 <RANGE 
LAB $B6 4<RANGE LOAD ADDRESS UF RANGE FOR SPEED TEST SUB-ROUT 
LAB $B49<IRRG SET RUPT POINTER FoR RTC INTERRUPT (SYNCe) 
3T8 $B49<1SA1P 
INC <BYTP SET BYIE POSITION TO ONE 


LOR S$R49=SX*21C8 
STR $R4e9<LC3SYF 
LDV $R4 9=8 SET CHARe SIZE FOR SPEED CALCULATION 
STR $R4_<CSB 

LOR $R4_zZ2°C118° 


SET LCT SYNCe LINE FLAG 


LOAD $K4& WITH SYNC CHARACTER TO BE USED 
MEASURE ANO PRINT LINE SPEED FOR Bl-SYCHRONOUS 


LAB $B1s<B8ISYNC 
LNJ $63,5<SPOTLP 


LOAD ADDRESS UF LINE TYPE 
GO TO LINE SPEED TEST 


MEASURE AND PRINT LINE SPEED FOR SYCHRONOUS 


LAB $B19<SYNC LOAD AVDRESS OF LINE TYPE 
LNJ $83 9<SPDTLP GO TO LINE SPEED TEST 


MEASURE AND PRINT LINE SPEED FOR MIL 188 


LAB $B1e<SYN188 


LN $B3_9<SPOTLP GO TO LINE SPEED TEST 


INC <PSFG SET FLAG TO INHIBIT PRINTOUT 


TITLE DOCMC2, 


000660 


000661 
00066<¢ 
000663 
000664 
000665 
000666 
000667 
000668 


000669 
000670 
00067] 
000672 
000673 
000674 
000675 
000676 
000677 
000678 
000679 
000680 
00068] 
000682 
000683 
000684 
000085 
000686 
000687 
000688 


000689 


000690 
000691 
000692 
000693 
000694 
000695 
000696 
000697 
000698 
000699 
000700 
00070] 


000702. 


000703 
000704 
000705 
000706 
000707 
000708 
000709 
000710 
O0O071L 
000712 
000713 
OU07T14 
000715 
000716 
Q00717 
000718 
000719 
000720 
000721 
QOQ07T22 
000723 
000724 


000725 
000726 
000727 
00072% 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 


000739 
000740 
00074) 
V0074e 
000743 
000744 


000745 
000746 
0Q0747 


000748 
000749 
000750 
00075) 


0313 
0315 


0317 


0318 
O31A 
0318 
O31C 


O31E 
0320 
032) 


0322 
0323 
0324 


0326 
0328 
O32A 
03268 
032d 
O32F 
0331 
0333 


0335 
0337 
0339 
O33A 
0336 
033C 
0330 


O335 
0340 
0342 
0343 
0344 
0345 
0346 


0347 
0349 


O34A 
034868 
034C 
O34E 
O34F 
0350 
0351 
0353 


9354 


0356 
0358 
O35A 
035C 
035d 
O35k 
O35F 
0360 
0361 


0362 
0364 
0365 


0366 
0367 
0368 
O36A 
036C 
O36E 
O3OF 
0370 
O372 
0374 


0375 
0376 
O37 
O37A 
Q37¢ 
O37E 
O37F 
0381 
0382 
0384 
0385 
0386 
0388 
O38A 
U38C 
O38E 
O38F 
0390 
0391 
0393 
0394 
0395 
0396 
0398 
O39A 


"REV At 


FBFO 0001 
0380 0000 


8382 


8FOO 1155 
0810 
8753 
9FBO 0320 


D380 0B38 
0000 
8383 


8751 
8752 
CFOO 129A 


C808 0320 
C900 1177 
0983 

C380 O9FD 
C380 OAF3 
C570 FF8O 
C470 0040 
CFOO L1OA 


FBCO 0003 
D380 0000 
OF BO 
OBFS8 
12b6 
1250 
LLOA 


FBCO 0003 
D380 0000 
OF8Q 
0C34 
12d7 
125k 
LIOA 


b380 OB24 
1296 


C826 
8AD3 | 
D380 OB8e 
LI9E 

0060 

8803 

4900 03C4 
CF55 © 
C970 O3C0 
OAB80 0362 
C870 03C0 
D380 UB8e2 
1C00 

0040 

88D] 

D254 

DF54 

OFF3 


0380 OBB2 
1C00 
0060 


7001 
8AD3 
C800 LOFC 
C380 OB7E 
8000 1180 
0054 
0703 
F380 OBA3 
0380 OB4C 
88D3 


88D1 
C800 1OFC 
C380 OB7E 
F800 LIDE 
FFOO 0000 
0004 
F900 0000 
O27E 
8040 ODFD 
0054 
0703 
F380 OBA3 
C380 OBOE 
cs00 1101 
C380 OB7E 
8055 
0054 
0703 
F380 OBA3 
8205 
1000 
0506 
0870 0100 
5701 FFFF 
OFFA 


CLA TEST (SAF) 


% 


* 
* 
* 
# 
x 
S 


NXSPD 
* 
NXSPD1 


NXSPD2 


DLCCB 


* 
SGCCB 


* Ok Ok O& 


MELCO} 


* 


oYCT 


JPT1 


ST3 


JPT2 


CALL 


JMP 


PDTLP SAVE 


cL 
STB 


CALL 


ZVSRD - 


$B2 


LINE SPEED LOOP 
<SAV39=Z908108 


a$R3 
$Ble<ST] 


$B5 9<FLN 
SAF 90 
$83 


=$R] 
#$R2 
$R49<LCT3S 


SR4o*<STI] 
SRO <ASYNC 
>NXSPDO2 
$B4e<SCLS 
$84 9<GENITZ 
$R4y=Z'FFROF 
SR4yEXIGOE 
SR4 9 <CHNZ 


rar a Meneame coats SRE OE whe ees ees ea re ed anes OREN TR, CN REI A he EE ee etre 1 Bere 
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REeINITIALIZE INTERRUPT VECTOR AND POINTERS & 


SET LEVEL 70 ZERO 
JUMP OUT OF TEST 


KKK HKAEHRHR HERR KKK HR KKH RK ARR HH ER HAH EHH HR 


SAVE REGSe 


"  $R3 . 
STORE LINE TYPE FOR FIND LINE ON 


FIND LINE ON UF TYpE BELOW 
LINE TYPt FOUND AND STORED HERE 
NO MORE LINE THIS TYPE END TEST 


CLEAR SRL 
CLEAR INDEX ON NEW LINE 


STORE LINE SPEED IN LCT. TABLE 


B IF NUT CURRENT Loop ADAPT. 
SET CURRENT LUOP ADAPTER SPEED 
GENERAL INITIALIZE 

PREPARE TO WRITE CHANNEL PROG 


ZVSMLWeCHLP1 eRAGL #HX200 oe CHNZ 


ZVSMLW oe CHLPLA sRAG2 9HX400 »CHNZ 


$85 9<SETLCT 
<LCT3 


SR4 oe SBGeSKZ 
s$R3 
$B5—9<MCCB 
<bOUT 

X*6or 

z$R3 
SR4e<TSNL 
$R4g=SR5 
S$R4ozXN]BCO?E 
<SGCCB 
$R4e=X"3C08 
$B5e<MCCB 
<DIN 

X*4aQ* : 

s$R1 
$R59=5R4 
$R5 9=SR4 
>DLCCB 


$B59<MCCB 
<DIN 
X*6ur 


SEND OUT LCT TABLE 


LOAD SR4& WITH RANGE IN 6YTES 
FORM CCB FOR XMIT 


CHANGE TO RECVe SIDE 


MAKE MULTIPLE CCB TF LARGE KANGE 


FORM CCB FO RECVe 


START 1/0 XMIT FIRST THEN RECVe 


LDV 
INC 
LDR 
LNW 
10 


BIOT 
LNG 
LNJ 
DEC 


DEC 
LOR 
LNJ 
LDR 
STR 
RTCN 
CMR 
BL 
10 


BIOT 
LNJ 
LNJ 
LDR 
LNJ 
10 


BIOT 
LNJ 
he ES 
BuT 
LDR 
BLEC 
b 


SRT gl 
=$R3 
$R4e<FOCE 
$64 9<CGSCH 
<BIT1e=$R4 


>MELCO] 
$B7s<ERROR 
$B59<TDLAY 
#$R3 


z$R] 
$R4e<FOCC 
$B49<CGSCH 
SRT a<FIVSEC 
$R7e<SZHRTCC 


SRT a<ZHRTCC 
>SYCT 
BIT1Le=$R4 


>JPTL 
$879<ERROR 
$B4e<INXT 
BR4_<F IS 
$644<CGSCH 
=G$R59=SR4 


>JPI2 
$B79<ERROR 


=$R5e=Z291 0008 


>JPTS 
$R5Oe=Z'O0L008 
$R59S 

>ST3 


CHANGE TO XMIT SIDE 


SYNGe UP CLOCK 
STORE KTCC WITH 5 SEC OF TICKS 
TURN ON REAL TIME CLOCK 


START 1/0 


ERROR; 4/0 WAS NAKSED 
INPUT NEXT STATUS 

LOOP ON INPUT STATUS UNTIL STATUS COMPLETE 
INPUT STATUS 


ERROR; 1/0 WAS NAKED 
SEE IF STATUS COMPLETE 


TIME DELAY FOR STATUS CHECK 


TITLE DCMCes "REV At CLA TEST (SAF) PAGE 9 


OOOT52 0396 I7ED JPT5 BINC SRL o>UPTL LOOP TU FINAL CCB 
000753 * 
000754 039C 9005 RTCF TURN OFF REAL TIME CLOCK 
000755 0390 C800 IDE LOR $R4e<FIVSEC CALCULATE ELAPSED TIME 
000756 O39F C200 G000 x SUB $R4e<ZHRTCC 
QO0O0757 OQO3Al 6755 CL eSRS 
O007TSs O3AZ 8980 1129 CMZ <SBIFG CHECK FLAG FOR STOp BIT TIME TEST 
000759 QO3A% 0980 0577 BNE <SBTE 
000760 * 
00076} 0O3A6 8980 129C JPTS CMZ SLCSSYF SEE JF SYNCe UR ASYNC, LINE 
000762 O3A8 O9A2 BNE >SYNSP 
000763 O3A9 C900 11DF CMR $R4e<SECL SEE IF NUMBER OF TICKS WITHIN 
000764 O3AB OAB4 BALE >TRYH ACCEPTABLE RAWGE 
000765 O3AC C900 LIEO CMR $R4_9<SECH 
000766 O3AR O80E BAL >TYXL 
000767 O3AF F800 1114 TRYH LDR $R79<ERF CLEAR ERROR FLAG To 
000766 O3B1 8700 1114 CL <ERF SUPPRESS REGISTER DUMP 
000769 0363 F380 OBA3 LNJ $67 9<ERROR 
QO0770 0385 C380 VABD LNJ $B49<PRTLSP ERROR; INCORKECT LINE SPEEV 
Q0077, 0367 FFOO 1114 STR $R7Te<tRE 
000772 0389 4COA LDV $R49e10 
000773 O3BA CFOO 1100 OTR $R49<CSB 
000774 O3BC 8AD2 TYXL INC =$KE 
000775 O38b C800 129A LOR $R49<LCT3S SET LCt 10 NEAT SPEED 
000776 O36F CATO 0100 ADD SR4eEX*1L008 CHANGE TU NEX] SPEED 
000777 O3Cl 2b0F CMV $R29215 SEE ITF ALL SPEED TESTED 
000776 O03C2 0800 0324 BAL <NXSPD BRANCH TU TEST NEXT SPEED 
Q00779 * 
QV0780 O3C4 3E&02 TSNL ADV $R3 e224 TEST NEXt LING 
000781] 03C5 8F80O 1155 RSTR <SAV3eRZ*08108 RESTORE REGS, 
O3C7 0810 
000782 O3C8B OFBO O3LE & <JPE3 
000783 # 
000784 O3CA 6980 LLIF SYNSP CMZ <PSFG 
000785 Q3CC 0986 BNE >SYNSPI1 
000786 O3CbD 8980 112A CMZ <SHORT 
000787 O3CF 0983 BNE >SYNSP1 
000788 0300 C380 OA8D LNJ $B49<PRTLSP PRINT SYNCHRONOUS LINE SPEED 
000789 O3D02 4C08 SYNSP] LDV $R4958 
000790 Q030D3 CFOO 110D oTR $R49<CSB 
000791 O35 OFEF b >TSINL 
000792 * 
000793 * 
000794 * RTC INTERRUPT ROUTINE 
000795 * 
000796 03D6 0005 NOSPD RITCF TURN OFF RTC 
000797 O3D7 =&700 1100 CL <CSt 
000798 0309 UB8O 03A6 LAB $B5e<JPT4 SET RUPT POINTER To RETURN TO LEVEL 4 
000799 O3bDs DF8O 1281 . oTB $B59<[SA4P 
000800 O3DbD 8ET7O 8004 LEV sZ'uQQ04! 
000801 O3DF OQOFF7 8B >NOSPD 
Bee. OUL802 * 
( 000803 * 
0006804 eee ee ee eee ee ee ee ee eee eee etepee eee eteete_ro ee 
—— 000605 * SYNCe RIC INTERRUPT ROUTINE 
000806 * 
O00807 O3ELU 0005 IRRG RTCF TURN OFF RTC 
000808 OU3EL C380 0814 LNJ $B4e<I NRG INPUT RANGE INTO $R5 
000809 U3E3 S8ADl INC =$R1 FORM TOTAL RESTOUAL RANGE 
000810 9364 1904 | SEL $K1 9>TRRG2. FROM OTHER CCyo's | 
00081} O3E5 DATO O3C0 IRRG1 ADbv $RDe=X93COF# 
QO00812 O3E7 IL7FE BINC S$K1Le>IRRGL 
000813 U3E8 C800 LIDE IRRGZ LOR SR4o<FIVSEC PUT ELAPSED TiME IN SR4& 
000814 OQO3EA DB8BO O3CA LAB $659<SYNSP SET RUPT POINJER FoR RETURN TO LEVEL 4 
000615 O3EC OFBO 1281 Tb SB59<1SA4P 
QO0UKl16 UZEE 8E70 4004 LEV =Z°s004! 
OOO0&17 U3FO OFFO B > IRRG 
000618 * 
000619 t-7ee we wr er er wr wer re ewe rw re ew kr em wr wr ee Te Fw He 
000820 * 
00082) * CRC AND PARITY TEST 
000822 * 
000823 O3FIL CB70 4420 CRPTB LOR SKR4—esA"D °& 
000824 OU3F3 CFOO 1364 STR $R46<ERMG+] 
000825 U3F5 6380 0986 LNJ $639<CLEG CLEAR ALL TEST FLAGS 
000826 OU3F7 &8A80O LIOF INC <CRCFG SET FLAG FOR vTALOp SuUBRKROUIINE 
Q0OO08s27 O3F9 8700 1L1LIA CL <MASK SET MASK FOR Z£VSC 
000628 O3FKB C870 CB02 LOR SR4ezL'CH8U2" SET LC! CONFlGe FOR 
000829 QO3FU CFOO 1290 STK $R4e<LC2CFR RECVes QUD PAKITYs CRC16 
000830 U3FF 4E20 ADV $R4oezXP?0E 
000831 0400 CFOO 1291 STR SRS oeLC2CFx XMIT LOT CONFIGe Opp PARITY 
0008632 0402 EB80 1197 LAB $B69<CPFLG LOAD AUDRESS UF LCT FLAG TABLE 
000833 0404 C876 LOR $R49+5B6 LOAD S$K4& WITH LCT FLAG 
000834 0405 CFOO 1294 CRPTB] STR BR4e<LCT2FG STORE INTO LCT TABLE 
000835 Q407 F870 OELS , LDR SRT gSXIELBE STORE INITIAL SPEED FOR ASYC. LINES 
000836 0409 FFOO 1292 STR $R79<LCT25 
000837 0408 7C06 LDV SRI 9z6 NUMBER OF 30 MS TIME DELAY FOR TRANSFER 
000836 * 
000839 * TEST ASYCHRONOUS LINES WITH BAUY RATE 
00084)U * 9600 BAUDs WITH 2 STOP BITS 
000841 Q040C 9880 1176 T8 LA $B19<ASYNI LOAD LINE TYPE 
000842 O040E 6380 0881 T8A LNJ $B3s<DTALOP GO TO LOUP SUb=-ROUT INE 
000843 0410 OF8S5 b >19 
000844 0411 1l2b9g9 bec <wCP2 ADDRESS IFTABLE FOR BLOCK WRITE 
000845 0412 I128E DC <LCI2 LCT TABLE 
000846 0413 OO3F DC (OF LT#DOUT) RANGE IN WORDS 
000847 0414 IL19E bC <VOUT 
000848 * 
000849 i TEST CURRENT LOQP ASYNCHRONOUS 
000850 % 
000851 0415 C87) 19 LDR $R494SB1 LOAD ID 1YPE INTO $R4 
000852 0416 C900 1177 CMR $R4_<ASYNC CHECK 10 SEE IF ALREADY VONE 
000853 O418 0902 BE >I19A 
000854 0419 OFFS bB >TBA 
000855 O41A T9A EGU $ 
000656 O41A F870 3218 LOR SRT ezX*3218! STORE SYNC. CHARe INTO LCT TABLE 
000857 U41C FFOO 1292 STR SRV e<bLCT25 
Q00858 O41 7028 LDV $R74=40 NUMBER OF 30 MS TIME DELAYS 
000859 * 
000860 * TEST SYNCHRONOUS LINES (32 AS SYNC. CHARS) 
000861 * 
Q00862 O4]F 9880 1178 LAB $B1l9<SYNC LOAD LINE& TYPc 


000863 0421 6380 0881 QA2 LNJ $63 »<DTALOP GO TO LOUP SUG-—ROUTINE 


JAD IE LG 


TITLE DCMC2e *REV At CLA TEST (SAF) PAGE 10 


000864 0423 OFB85 b >TLO 
000665 0424 12D9 bc <wCP2 ADDRESS IABLE FOR BLOCK WRITE 
000666 0425 1285 vc <LC12 LCT TABLE 
000867 0426 O02F Te (DFLT-DOUT1) RANGE LN WORDS 
000868 0427 1LIAE DC <bOUT1 
000869 * 
000870 x TEST SI-SYNCHRONOUS LINES (32 AS SYNCe CHAR.) 
QO08T7] * 
QOU8S72 0428 C871 T10 LDR $K49¢SB1 LOAD 1L TYPE INTO $R4G 
000873 0429 C900 1179 CMR $R4e<BISYNC CHECK 10 SEE JF ALREADY VONE 
0008674 0426 0902 | BE >Tle 
000875 O042C OFFS B >QA2 
000876 * 
000877 * TEST MIL 188 SYNCHRONOUS (32 AS SYNC. CHAR,) 
000878 % 
000879 042b 9B80 117A Tl2 LAB $B1 9<SYN188 LOAD LANE TYPE 
00V0880 O042F B380 0881 LNu $B3e<DTALOP GO TO LOUP SUd-ROUTINE 
000881 0431 OF85 8 >138 
000882 0432 1209 bc <wCP2 ADDRESS TABLE FOR BLOCK WRITE 
000683 0433 128E be <LCl2 LCT TABLE 
000884 0434 U02F DC (DFLTeDOUT]) RANGE IN WORDS 
000885 0435 LLAE | re <D0UT1 
000686 * 
000887 0436 C876 T38 LDR $RK49+$B6 CHANGE LCT FLAG 
000886 0437 4980 0405 BNEZ SR4e<CRPTBI SEE IF ALL FLAGS CHECKED 
000889 0439 C800 1290 LDK $R4o<LC2CFR SEE IF ALL COMBINATIONS HAVE BEEN RUN 
000890 0436 970 D802 CMR $R4 9=Z*V802" 
000891 043D 0900 BE >CRPT BZ BRANCH JF ALL TESTED 
000892 043E C870 Ds02 LOR $R492Z*D802" CHANGE LCT COWFIGe TO EVEN PARITY 
000893 0440 CFOO 1290 STR $R49<LC2CFR STORE RECV CONFIG. 
000894 0442 4E20 ADV SR4eeX* 208 CHANGE AVORESS FOR xmIT LCI 
000895 0443 CFOO 1291 STR $R49<LC2CFX STORE XMIT CONFIGe 
000696 0445 E880 1198 LAB $B69<CPFLG+1 SET TO TeST WITH PARITY 
000897 0447 C876 LOR $R4 9 +$B6 LOAD $K4 WITH LCT FLAG 
000898 0448 UF80 0405 8 <CRPTB1 BRANCH TU TEST ALL LINES AGAIN WITH EVEN PARI 
000899 044A 8700 L1OF CRPTB2 CL <CRCFG CLEAR CRO AND PARITY TEST FLAG 
000900 044C 8382 JMP $62 JUMP OUT OF TéeST 
000901 * 
000902 KHER KER HK HRA HHH EK EK KKK KHKA KK KHER RE HEH HR HHA HHH 
000903 * 
000904 * CRC AND PARITY CHECK ROUTINE 
000905 %: 
000906 * 
000907 0440 BFOO 1145 CRPRT SAVE <SAV2e=Z*91E0" SAVE REGSe $B19B29gR7 
-044F 9 LEO . 
000908 0450 ACBO O8CC Lb6 $629<TG2 LOAD AVDRESS UF LCT TABLE INTO $B2 
000909 0452 C842 0002 LDR $R49SB2 02 . LOAD $K4 WITH CONFIG, 
000910 0454 404E SOR $R4914 SHIFT 10 CHAR. SIZE 
000911 0455 4E05 ADV $R4955 
000912 0456 CFOO 110C . STR SR49<CS | STORE CHARACTER SIZE FROM CONFIG. 
000913 * : 
000914 * SET ZV$C MASK ACCORDING TO CHARe SIZE co 
000915 . * 0 \. 
000916 0458 4DUEs CMV $R49=8 a ; 
000917 0459 090A BE >CRPR2 eed 
000918 045A 4D07 CMV SR4ez7 
000919 0458 0984 BNE >CHRF ] 
000920 045C C870 TFTF LOR SRGOSZUTFTFE SET MASK FOR 7 BIT CHARe 
000921 O45E OF83 6b >CRPRI 
_ 000922 O45F CaO 3F3F CHREL LOR SR49z2Z"3F3F! SET. MASK FOR. 2. BIT _CHARe 
000923 0461 CFOO 111A CRPRL. STR SR49<MASK 
~ 000924 * 
000925 0463 C842 0006 CRPR2 LDR $R4 9$B206 CHECK LCI FLAG TO SEE IF CRO AND/OR PARITY 
000926 0465 4017 CMV SR4esXt179 
000927 0466 OA00 0499 BAG <CKCRC BRANCH TU CHECK CRC ONLY 
000928  * 
000929 * 
000930 0468 B8C80 O8EF Lbs $B39<TG3 LOAD AVDKESS UF DATA BUFFER 
000931 046A 9880 1000 LAB $B1L9<DINI } LOAD AVDRESS UF SHOULD BE WITH PARITY 
000932 046C F800 1120 LDR $R7 9 SRANGE LOAD RANGE OF TRANSFER IN WORDS 
000933 O046& 7001 SOL - $R791 CHANGE RANGE JO BYTES 
000934 OU46F CB42 0002 LOR $R49SB202 CHECK CONFIGURATION To SEE IF OvD 
000935 0471 C570 1000 AND $R4e=X910008 OR EVEN PARITY 
000936 0473 404¢ SOR SK4912 SHIFT 10 LSB . 
000937 0474 8B54 LBC SSR4Q=zXOLE COMPLEMENT THe BIT TO WORK IN SUBROUTINE 
0475 000) . 
000938 0476 CFOO ILIE . STR SR4e<PTTY STORE IN PARITY TYpE LOCATION 
000939 # 
000940 0478 C380 O9BE LNJ $B49<CPAR GO TO CALCULATE PARITY 
000941 * 
000942 CALL = ZVSCeDIN] VINeMASK sRANGE sERAR 
047A FBCO 0003 
047C 0380 0000 X 
047E OF8O 
O47F 100 
0480 1¢00 
0481 ILLIA 
0482 1120 
0483 1131 
000943 0484 8980 1131 © CmzZ <ERAR SEE IF ANY ERRORS 
000944 0486 0900 BE >CKPTY2 
000945 0487 0800 1133 LDR $R59<ERAR+2 LOAD #45" INTU $R5 
000946 0489 E800 1132 LOR: $R69<ERARS] LOAD "SHOULD vE* INTO SRO 
000947 048% F800 1131 LDR $R7¥<ERAR LOAD $K7 WITH WORD COUNT 
000948 048D F380 OBA3 LNJ $87 9<ERROR ERROR; INCORRECT PARITY 
000949 CALL ZVSCO CONTINUE CHECKING ENTIRE BUFFER — 
048F FBFO 0001 ae 
0491 0380 0000 X 
000950 0493 DB80 0959 CKPTY2 LAB $H59<JP5 CHANGE $65 TU POINT TO AFTER COMPARE 
000951 0495 89C2 0006 CMéZ $8206. CHECK FLAG IF PARITY ON 10 
000952 0497 OA80 0401 ; BALE <EDCK BRANCH IF PARITY NOT ON 
000953 0499 £380 099C CKCRC LNG $86 »<BASE LOAD $RK5 WITH LCT BASE ADDRESS 
000954 0493 5E03 ADV $RS5 9x3 FOR BLOCK READ OF CRC RESIDUE 
000955 049C DFOO 04A3 STR $R5 9<RKCRRL STORE RECV, RESIDUE ADDRESS 
000956 049E 5E20 ADV $R5 9532 
000957 049F DFOO 04AC STR $R5 9<RCRXL STORE XMIT RESIDUE ADDRESS 
000958 * 
000959, O4Al €380 OBSE LNJ $B69<RDLCT READ RECVe CRO RESIDUE 
000960 04A3 0000 RCRRL DC 7) . RAM ADDRESS 
000961 O4A4 0002 ~ bc 2 7 RANGE 
000962. * ; 
000963. 04A5 C800 112E LOR SR49<LCTV 


000964 QaAT 4018 Sck $R498 ROTATE THE ORVER 


wt Et tt ee crate adh nen a the res wlan duke Wha ten ieee beast ella 


TITLE DCMC2,s 


000965 
000966 
000967 
000968 
000969 
000970 
000971 
000972 
000973 
000974 
000975 
000976 
000977 
000978 
000979 
000980 
000981 
000982 
000983 
000984 
000985 
000986 
000987 
000988 
000989 
000990 
00099] 
000992 
000993 
000994 
000995 


000996 
000997 
000998 
000999 
001000 
001001 
001002 
001003 
001004 
001005 
001006 
001007 
001008 
001009 
001010 
00101) 
oolgle 
001013 
001014 
001015 
001016 
001017 
001016 
001019 
001020 
001021 
001022 


001023. 


001024 
001025 
001026 
001027 
001028 
001029 
001030 
001031 
001032 
001033 
001034 
001035 
001036 
001037 
001038 
001039 
001040 
00104) 
001042 
001043 
001044 
001045 
001046 
001047 
0010468 
001049 
001050 
001051 
001052 
001053 
001054 
001055 
001056 
001057 
001058 
001059 
001060 
001061 
001062 
001063 
001064 
001065 
001066 
001067 
001066 
001069 
001070 
00107) 
001072 
001073 
001074 
001075 
QOOLOT6 


04A8 


O4AA 
O4AC 
04AD 


O4AE 
0450 
04B1 


04B3 
04B5 
04B7 
04B9 
0486 
O4BC 
048D 
O46F 


04C)1 


04C3 
04C5 
04C7 
04C8 
04C9 
04Cb 
04CD 
04CE 
O4CF 
04D1 
04D3 
04D4 


04D5 
04D7 
04D9 
04D 
04DD 
O4DE 
04E0 
04E1 
0463 
O4E5 
O4E7 
OGE9 
04Eb8 
O4EC 
O4EE 


O4FO 
O4Fe 
04F4 
O4F5 
04Fo 
O4F7 
O4F6 


O4F9 
O4FA 
O4FC 
O4FD 


O4FE 
0500 
0502 


0503 
0505 
0507 
0508 
0309 
QO50A 
0506 


O050C 
0500 
OS5O0F 
0510 


0511 
0513 
0515 
0516 
0517 
0518 
0519 


OSLA 
O51C 
OS1E 
0520 
U521 
0523 
0524 
0526 


"REV AS 


CFOO 


E380 
0000 
0002 


C800 
4018 
CFOO 


EB80 
E800 
BCBO 
C842 
4D17 
0983 
BBBO 
F800 


C380 


E800 
800 
E955 
0903 
F380 
D800 
E955 
0903 
F380 
8F80 
91E0 
8385 


C870 
CFOO 
5380 
8A80 
4CO02 
CFOO 
4E20 
CFOO 
C870 
CFOO 
89CO 
0980 
TCOA 
C870 
CFOO 


9B80 
b380 
OF85 
12DE 
129E 
OO3F 
LI9E 


C871 
C900 
0902 
OFFS 
O4FE 
F870 
FFOO 
7028 


9B80 
B380 
OF8S 
L2DE 
129€ 
OO2F 
LLAE 


C871 
C900 
0902 
OFF5 


9B80 
6380 
OF85 
12DE 
129E 
OO2F 
LIAE 


8ABO 
C800 
CATO 
0608 
CFOO 
4E20 
CFOO 
OF8O 


Li2l 
OBSE 


L12E 
112D 


1185 
110C 
O8EF 
0006 


1000 
1120 


O9A0 


LIOE 
L1l2l 


OBA3 
112D 


OBA3 
1145 


4520 
1364 
098B 
1109 


12A0 


12Al 
1F1F 
LL1A 
0C30 
O51A 


0E18 
12A2 


1176 


Q88)° 


1177 


£618 
12A2 


1178 
0881 


1179 


LITA 
0881 


L1LOF 
12A0 
4000 


12A0 


12Al 
O4E6 


CLA TEST (SAF) 


STR $R4 9 <RCRC 


* 
LNJ =: $B69<RDLCT 
RCRXL DC ) 
DC é 
* 
LOR SR49<LCTV 
SCL —- $ R498 
STR $R49<XCRC 
* 


LAB $B69<CRCL6 
LDR $R6O9<CS 
LOB $B39<TG3 
LDR $R429SB206 
CMV SR49=X9178 
BNE / >CKPCR 
LAB $83e<DINI 
CKPCR LDR SRT 9 <RANGE 


LNJ $649<CRC 


LOR $R69<CRCAC 

LDR SR5—<RCRC 

CMR SR69=5SR5 

BE >RCRCG 

LNJ $B79<ERROR 
RCRCG LDR $R59<XCRC 

CMR: $R6 9 =SR5 

BE >EDCK 

LNJ $879<ERROK 
EDCK RSTR <SAV29=Z'*91 EO! 


JMP $65 


* 
* 
* 
* 
% CHARACTER SIZE TEST 
* 
CHSZTD LDR SK4ezAVE ¢ 

STR $R49<ERMGe] 

LNJ $630<CLFG 

INC <CHSZFG 

LDV SR4e%2 

STR S$R4e<LC4CFR 

ADV GR4eaX*208 

STR $R4—9<LCGCFX 

LOR SR4oSZtlFlFe 

STR $R49<MASK 

GCMZ ~ HISPLD 
BNE <T36 
CHSZT1 LDV $R7e=10 

LDR SR49=X*E18* 
STR SR4—e<KLCT4S 


PAGE ll 


READ XMIT CRC RESIDUE 
RAM ADDRESS 
RANGE 


LOAD CRC TYPE 

LOAD CHARe SIZE 

LOAD ADDRESS UF OUTPUT BUFFER 

CHECK FLAG TO SEE JF OUTPUT BUFFER CORRECT 


LOAD RANGE OF TRANSFER IN WORDS 
CALCULATE CRC FOR THE TRANSFERS 
LOAD $K6 WITH SHOULD BE 

LOAD CRC RECVe RESIDUE 

COMPARE RECEIVE CRC 

ERROR; RECEIVce CRC RESTDUE WRONG 
LOAD XMIT CRC RESIDUE 

COMPARE XMIT CRC 


ERROR§ XMIT RESIDUE WRONG 
RESTORE REGS. 


GO BACK TO DAJLOP SUuBeROUTINE 


CLEAR ALL TEST FLAGS 
SET CHARACTER SIZE TEST FLAG 

LOAD CONFIGURATION FOR 1 STOP BIT ODD 
PARITY» 5 BIT CHAR, RECVe 


STORE AMIT CONFe 
SET MASK FOR FIVE BIT CHARe 


IF SYNC 9600 wAUDs NO 5 BIT MODE 


NUMBER OF 30 mS TIME DELAY FOR TRANSFER 
SET LINE SPEED FOR ASYNCe LINE 


* 
* ’ TEST ASYNCHRONOUS LINES WITH BAUD RATE 
* 


9600 BAUD», WITH 1 


114 LAB $BL e<ASYNI 
T14A LNJ = $83 e<DTALOP 


STOP B1T 


LOAD LINE TYPE 
GOTO LOUP SUc-ROUTINE 


is) >T15 
bc <wCP3 ADDRESS TABLE FOR BLOCK WRITE 
bc <LCI4 LCT TABLE 
DC (DFLT=bOUT) RANGE IN WORDS 
DC <DOUT 
* 
* TEST CURRENT LOOP ASYNCHRONOUS 


T15 LDR $R49+3B1 
CMR $R49<ASYNC 
bE >TLSA 
b >T14A 

TL5A EQU $ 
LOR = $R7o=Z*E618* 
STR SR79<LCT4S 
LbV $R79=40 


Mg TEST SYNCHRONOUS LINES 


LAB SB1l9<SYNC 


LOAD ID 1YPE INTO $R4 
CHECK [0 SEE iF ALREADY VONE 


STORE SYNC. CHARe INTO LCT TABLE 
NUMBER OF 30 MS TIME DELAYS 
(E6 AS SYNC. CHARe) 


LOAD LINE TYPu 


QA3 LNG $B39<bDTALOP GO TO LOUP SUb-ROUTINE 
b >T16 
vbC “<WwCR3 ADDRESS [ABLE FOR BLOCK WRITE 
bC <LCIT4 LCT TABLE 
DC (DFLT=DOUT1) RANGE IN WORDS 
DC <DOUTIL 
* 
* TEST GIRSYNCHRONOUS LINES (E6 AS SYNGe CHAR.) 


T16 LOR $R49+$61 
CMR $SR49<BI SYNC 


BE >T17 
b >QA3 
* 


T17 LAB $Ble<SYN18S8 


LNG $63 9<DTALOP 
6B >T36 

DC <WCP3 

be <LCT4 

DC (DFLT-¥bDOUT]) 
DC <DOUT] 


T36 INC <CRCFG 
LDR $R4e<LC4CFR 
ADD $R4e=X'40008 
BCT >CHSZDE 
STR SR4e<LC4CFR 
ADV $R4ezX*208 
STR $R4o<LC4CFX 
b <CHSZF1 


LOAD 1D JYPE INTO $R4 
CHECK 10 SEE iF ALREADY DONE 


* TEST MIL 168 SYNCHRONOUS (E6 AS SYNC. CHAR,) 


LOAD LINE TYPc 
GO TO LOUP SUo-ROUTINE 


ADDRESS TABLE FOR BLOCK WRITE 
LCT TABLE 
RANGE IN WORDS 


CHANGE CONFIGURATION TO NEXT CHAR, SIZE 


IF CARRY ALL CHARe SIZES HAVE BEEN TESTED 
STORE RECV CONFIGe 


STORE XMIT CONFIGe 
DO NEXT CHAR. 


TITLE DCMC2,s 


001077 
001078 
001079 
001080 
001081 
001082 
(001083 
001084 
001085 
001086 
001087 
001088 
001089 
001090 
00109] 
001092 
001093 
001094 
001095 
001096 
001097 
001098 
001099 
001100 
00110) 
001102 
001103 
QO1L104 
001105 
001106 
001107 
001108 
001109 
001110 
QOLLII 
OOlile 
001113 
001114 
OOLILILS 
001116 
001117 
001118 
001119 
001120 
001121 
001122 
001123 
001124 
001125 
001126 
OO1127 
001128 
001129 


001130 
001131 
001132 
001133 
001134 
001135 
001136 
001137 
001138 
001139 
001140 
001141 
001142 
001143 
001144 


001145 
001146 
001147 
001148 
001149 
001150 
001151 
001152 
001153 
001154 
001155 
001156 
001157 
001158 
001159 
001160 
QO1161 
001162 
001163 
001164 
001165 
001166 
001167 
001168 
001169 
001170 
001171 
001172 
001173 
001174 
001175 
001176 
001177 
001178 
001179 
001180 
00118] 


001182° 


001183 
QOOLLS4 
001185 
001186 


V528 
O52A 
O52C 


052b 
O52F 
0531 
0533 
0535 
0537 
0539 


053b 
053v 
O53t 
O53F 
0541 
0542 
0544 
0546 
0547 


0549 
0546 


0540 
O54F 


0551 
0553 
0555 
0557 
0559 
O55A 
U55C 
O55E 
0560 
0562 


026% 
0566 
0568 


Q56A 
O56C 
O56E 


0570 
O572 
0574 
0576 


O5S77 
0579 
O57A 
O57¢C 
O5STE 
O5S7F 
0581 
0583 
0584 
0585 
0586 
0588 
0589 
0586 
O58C 


Q58E— 
OS8F 
0591 
0592 
0594 
0595 
0597 
0598 
O59A 
0598 
0590 
OO9F 
O5Al 


O5A3 
O5A5 
O5A7 
O5A8 
ObDAA 


O5AC 
O5AbD 
O5AF 
O5B1 
0583 
0585 


8700 
8700 
8382 


C870 
CFOO 
6380 
C6880 
CF80 
CB80 
CF8O 


C800 
4F06 
4EF7 
CFOO 
4El2 
CFOO 
8E70 
4C0l 
CFOO 


CB80 
CF8O 


CB80 
CF8O 


8700 
8A80 
C870 
CFOO 
4E20 
CFOO 
C870 
9B80 
EB80 
6380 


C870 
9880 
6380 


C870 
9880 
B380 


FBFO 
D380 
8700 
8382 


C940 


0803. 


F380 
C900 
OA03 
F380 
D800 
8955 
0800 
0509 
DFOO 
SE20 
DFOO 
BAD2 
OF8O 


2003 


0900 
4CO02 
CFOO 
4E20 
CFOO 
BAD2 
C870 
0801 
D900 
0900 
C870 
OF8O 


C870 
CFOQO 
4E20 
CFOO 
OF8O 


0005 
F380 
DB80 
DF 80 
BETO 
OFF7 


*REV APS 


L1OF 
1109 


0C68 


OBA3 
L1LOF 


OBA3 
1298 


1298 
1299 


0326 


O5A3 
1298 
1299 
0218 
1175 
0324 
0116 
0324 


C002 
1298 


1299 
03C4 


OBA3 


0326 — 


1281 
8004 


CLA TEST (SAF) 


* 
CHSZDE CL 
Cu 


* 
% 
* 
* 
* 
STBITE LOR 

STR 


SBIT1 LDV 


CL 
JMP 
* 


bl 


<CRCFG 
<CHSZFG 
$B2 


STOP BIT TEST 


SR4—zAtF & 
$R49<ERMG+] 
$B3e<CLFG 
$84e<SBIT1 
$B49<ISA4GP 
$B49<ISA44S$AF 
$B49<ZHISAL+4 


$R4—e<HRTZ 
SRO —=6 
BR4gzeG 
$R49<SECL 
$R49=18 
$R49<SECH 
=Z'sQQ4t 
$R4 oe] 
$R49<ZHRTCL 


$B49<NBITT 
$B49<JSAIP 


$B49<J]SAL+¢SAF 
$B49<ZHISAZ 41 
<LC3SYF 
<SBTFG 
S$R4—e5Z29*CO02# 
$R4e<LC3CFR 
SR4OezX*208 
$R4—9<LC3CFX 
SR4o=X493Z188 
$B19<ASYN 
$B6e<SBI TRL 
$B3+<SPDTLP 


SR4eEXI2LE! 
SK19<ASYNI] 
$83 9<SPOTLP 


SR4o=X*218! 
$B19<ASYNC 
$83 9<SPDOTLP 
ZV$RD 


<OBIFG 
$B2 


PAGE 12 


CLEAR CRC AND PARITY FLAG 


CLEAR CHARACTER S1zZE TEST FLAG 


JUMP OUT OF T&ST 


CLEAR ALL TEST FLAGS 
SET UP INTERRUPT VECTORS AND 
POINTERS TO CHANGE RUNNING LEVEL TO 4 


CALCULATE THE LOW AND THE 
HIGH RANGE OF ACCEPTABLE CLOCK TICKS 


CHANGE RUNNING LEVEL TO 4 
SET RTC LEVEL TO 1 


SET RUPT POINTER FOR RTC INTERRUPT 
SET RUPT VECTUR FOR LEVEL 1 RUPT 


CLEAR SYNC. FLAG FOR ASYNCe LINE 
SET STOP BIT TIME TEST FLAG 

LOAD AND STOR& INITIAL LINE CONF. 
FOR RECVe. 


FOR XMIT 

LOAD SK4 WITH SPEED FOR ASYNCe LINE 
LOAD LING TYPE 

LOAD AVDRESS uF CHAR, NUMBER TABLE 
GO TO SPEED TiME Loop 


LOAD $K4 WITH SPEED SELECT FOR NEW ASYCe 


LOAD AVDRESS uF LINE TYPE 
GO TO SPEED TIME LooP 


RE@INIVIALIZE INTERRUPT POINTERS AND VECTOKS 


CLEAR STOP BIT TEST FLAG 
JUMP OUT OF TEST 


KR RK KH HR RE RHHHHHR H R HRRHRKR KRKR H RRH HR RK RH HHK 


* STOP bIT TIME CHECKED HERE 
* 
SBTE CMR SR49SECH SEE IF CLOCK TICK WITHIN 
BAL >SBIE1 ACCEPTED RANG: 
LNJ $B79<ERROR ERROR; STOP oITS ARE TOU LUNG 
SBTE] CMR $R49<SECL 
BAG - >SBTEZ2 
LNJ $B7+<ERROR ERROR; STOP BITS ARE TOU SHORT 
SBTE2 LDR $R5e<LC3CFR LOAD LCT CONF AG. 
Let =$R595Z908008 SEE IF BIT SET AND SET II 
BET >SBIE3 IF TRUE IRY SLOW SpEED FUR 1e5 STOP BIT 
STR $R59<LC3CFR STORE LCT CONFIGe WITH 2 STOP BITS 
ADV SRS e=X*ZOS 
STR SRS 9 <b. C3CFX STORE CONFIG. XMIT 
INC #$R2 INCREMENT INDEX 
) <NXSPDL 
* 
SBTE3 CMV SR2 923 SEE IF ALL STUP BIT S CHECKED 
BE <SBTE4 
Lbv $R49z2 CHANGE CONFIG. FOR 5 BIT CHAR. 
STR SR49<LC3CFR STORE KECV CUNFIG, 
ADV $R49=X9209. 
STR $R4y<LCICFX STORE XMIT CONFIG. 
TNC =$K2 INCREMENT INDcX 
LDR $R495X92188 LOR $R* 10 SE] LINE SpEED TU 75 BAUD 
LOR $R50S81 IF NEW ASYCe KESET $R4 FUR 75 BAUD 
CMR $R59<ASYN . 
BE <NXSPD 
LDR $R4o=X*118° 
B <NXOPD 
* : 
SBTE4 LOR $R4y=Z*COO2' LOAD AND STORt BEGINNING CONF, | 
STR S$R49<LC3CFR FOR RECVe 
ADV SR4osX"Z0! 
STR $R49<LC3CFX FOR XMIT 
B <TSNL 
* 
* 
* 4+ e+ + + + He H+ H+ HH HH HH HH HH HHH HH +H HH oe HH HH HH HHH 
* ; 
* CLOOCK INTERRUPT ROUTINE 
* 
NBITT RTCF TURN OFF CLOCK 
LNU $B7s<ERROR ERROR; STATUS NOT COMPLETE AFTER 5 SEkCe 
LAB $B5 9<NXSPD1 RETRY THE LINt 
STB $B5e<1SA4P WITH SAME CONFIG. 
LEV =Z'80048 
b >NBITT 
* 
* 
* 
* 
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001187 * 
002188 % PARITY ERROR TEST 
ae 001189 * 
. 001190 O5B6 C870 4720 PARERF LDR SR4ezA'G # 
001191 05B8& CFOO 1364 STR SR4¢<ERMGe)] 
00119¢ USBA 86380 098B LNJ $639<CLFG CLEAR IEST FLAGS 
001193 O58C 8ABO 111d INC <PAKFG ; 
001194 Od5bE C870 C802 LOR SR4q5Z*CBO2? LOAD CUNFIG. UN REC, FOR OLD PARITY 
OOL195 O5CU CFOO 1290 STR $R4 9 <LC2CFR 
001196 O5C2 CA7O 1020 AOD $R49=X4"10208 SET CONF1Ge Ow XMIT TO EVEN PARITY 
001197 O5C4% CFOO 1291 STR $R4e<LC2CFX 
001198 O5C6 C870 FOLT LOR BR4—eeZ*FO17! SET CCR FLAG FOR PARITY UNLY 
001199 0O5C8 CFOO 1294 STK $R4e<LCTZFG 
001200 OS5CA F870 OE18 LDR SR7ezX'ELB? STORE INITIAL SPEED FOR ASYCe LINES 
001201 O5CC FFOO 1292 STR $R7e<LCT25 
O01zZO2 ObCE 7C06 LDY SR79=6 NUMBER OF 30 mS TIME DELAY FOR TRANSFER 
001203 % 
001204 * TEST ASYCHRONOUS LINES WITH BAUD RATre 
001205 * 9600 BAUDs WITH 2 STOP BITS 
001206 OU5CF 9880 1176, 139 LAB $Bls<ASYNI LOAD LINE TYPE 
001207 OSD) 6380 08861 T39A LNJ $B3e<DTALOP GO TO LOOP SUb-ROUTINE 
001208 O5D3 OF85 b >T40 
001209 O5b4 I12b9 DOC <wCP2 ADDRESS JABLE FOR BLOCK WRITE 
001210 O5b5 1286 oC <LCl2 LCT TABLE 
OOIlZ11L O506 OO3F DC (DFLT=bDOUT) RANGE IN WORDS 
OUl2Z12 O507 IL1ZE vc <DOUT 
001213 * 
003214 *% TEST CURRENT LOOP ASYNCHRONOUS 
001215 * . 
OOl2Z1l6 O508 C8Tl T40 LDR S$R4e4S6] LOAD JV IYPE INTO §R4G 
001217 O5b9 €900 1177 CMR $R4e<ASYNC CHECK 10 SEE iF ALREADY VONE 
OOLlZ18 O5b6 0902 BE >T40A 
001219 O5DC OFFS b >T39A 
001220 0500 T40A EGU $ 
00122) Ob5DD F870 3218 LDR SRT oRAKX*Z2188 STORE SYNC. CrHARe INTO LOT JABLE 
OOlZ22 O5LF FFOO 1292 STR $R79<LCT25 
001223 O5E1 7C28 LDV $R79=40 NUMBER OF 30 mS TIME DELAYS 
001224 % 
001225 * TEST SYNCHRONOUS LINES (32 AS SYNC. CHAR) 
001226 % 
OOlZ27 O5SE2 98860 1178 LAG $B1le<SYNC LOAD LANK& TYPc 
001228 0564 6380 0881 OA4 . LN $B39<DTALOP GO TO LOUP SUp-ROUT INE 
001229 O5E6 OF85 B >T41 
001230 OSET 1209 oc <wCr2 ADDRESS TABLE FOR BLOCK WRITE 
O0OlLZ31l O5SE& 128E DC <LCh2 LCT TABLE 
001232 O569 O02F DC (DFLT=bOUTL) RANGE IN WORDS 
001233 QOSEA IL1LAE DC <dOUT] 
001234 * 
001235 % TEST BI=SYNCHRONOUS LINES (32 AD SYNLe CHAR.) 
001236 * 
001237 O5SEB C871 T41 LOR $R4_*+SB 1. LOAD IL TYPE ANTO g§R4 
wae en 001238 O5EC ¢€900 1179 CMR $R49<BI SYNC CHECK 10 SEE JF ALREADY VONE 
001239 O5EE 0902 bE >T42¢ 
001240 OSEF OFF5 B >QA4 
001241 * 
00124¢ * TEST MIL 188 SYNCHRONOUS (32 AS SYNC. CHAR,) 
001243 % 
001244 O5FQ 9880 LITA T42 LAB $B1le<SYN188 LOAD LINE TYPE 
001245 OQO5F2 6380 0881 LNJ $B3e<DTALOP GO TO LOUP SUp-ROUTINE 
001246. O5F% QOFBS5 8. >T4d : 
001247 O5F5 1209 DC <WCRPZ 1OR6 AVORESS FORK BLOCK wkITte 
001246 O5F6 128E vc <LCle2 LCT TABLE 
001249 O5SF7 OO02F OC (DFLT=DOUT]) RANGE IN wORDS 
001250 O5F8 LILAE DC <DOUT1 
001251 % 
001252 ObF9 8700 1110 T45 cl <PARFG 
001253 O5SFy 8382 wJMP $B2 
001254 * 
001255 RRKKRHR HK HR KH KKK KKK KH HHH HH HK KH HR HR HHH HH HH HHH 
001256 * 
001257 * CHECK PARITY ERROR BIT SET 
001258 * 
“001259 O5FC C380 OBOE PARI LNJ $B49<INXT INPUT NEXT SIATUS 
001260 O5SFE 82bd5 LB zSR5—e2X#10008 
O5FF 1000 
O001l¢61 0600 0503 BBT >PARZ 
001262 Vedl F380 OBA3 LN $B7+<ERROR ERROR; SIATUS COMPLETE bLT NOT SET 
001263 0603 82b5 PAK2 L& s$RDOa=X1408 SEE IF DATA CHECK ERROR BIT SET 
0604 0040 
001264 0605 0503 BGT >PAK3 
001265 0606 F380 OBA3 LNJ $67 9<ERROR ERROR; UWATA CHECK ERROK BIT NOI SET 
001266 0608 8AD3 PAR3 INC =$R3 
001267 0609 C380 OBOE LNJ $B49<INXT INPUT NEXT STATUS 
001268 0606 6205 LB #$R5ezX9] 0008 
060C 1000 
001269 0600 0503 BBT >PAR4 
001zZ70 O60E F380 OBA3 LNJ $87e<ERROR ERROR; STATUS NOT COMPLETE ON XMIT SIVE 
O01Z7]1 0610 #6205 PARS LB Z$RDO9=EXIGO!E 
0611 0040 
O0O1lZ72 Obol2g 0583 B&F >PARS 
001273 0613 F380 OBA3 LNG $B87+<ERROR ERROR; VATA CHECK ERROR Bll SET ON XMIT 
001274 0615 OFS8O 0985 PARS B <JPSA 
001¢75 * 
001276 * 
001277 kK 7 -— = nw me wee eee ee eee eee ee ee 
001278 * 
001279 * STOP 1/0 TEST 
001280 * 
001¢81 0617 C870 4820 2TI0G LOR SR4—esA'H 8 
001282 OolS CFOO 1364 STR S$R4e<ERMG+] 
001283 O6l1b 6380 0988 LNJ $B3 9<CLFG CLEAR ALL TEST FLAGS 
001284 O6lb A800 1181 LOR $R29<BI1T2 LOAD $K2 WITH FUNCTION COMMAND 
001285 O6l1F gsAB8B0 1126 INC <STPFG 
001286 U621 8700 12AD CL <LCSSYF CLEAR SYNC. FLAG FOR ASYNCe LINES 
001287 0623 C870 VEL8 LOR S$R4e=X'ELBP 
001288 0625 CFOO L2Ag9 OTR $R4e<LCT5S 
001289 0627 T7002 LOV $R7 o=2 NUMBER OF 30 MS DELAY 
001290 % 
00129) * TEST ASYNCHRONOUS LINES wITH BAUD RATE 
001292 * AT 9600 BAUDs WITH 2 STOP BITS 
001293 * 
001294 0628 9880 1176 T19 LAB $619<ASYN1 LINE TYPE 


001295 062A 6380 0881] TIGA LNJ $B3»<DTALOP 
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001296 O62C OF85 6 >T2u 
001297 O62D 1204 DC <wCrl1 
001298 O62E 12A5 bc <LCI5 
001299 O62F 0166 DC 438 RANGE IN WORDS 
001300 0630 119€ bc <bOUT TRANSMLT BUFFER ADDRESS 
001301 * 
001302 * TEST CURRENT LOOP ASYNCHRONOUS 
001303 * 
001304 0631 C871 T20 LOR $R4 9+SB1) LOAD JD TYPE INTO $R4 
001305 0632 C900 1177 CMR $R49<ASYNC CHECK 10 SEE iF ALREADY DONE 
001306 0634 90902 . bE >T2UA 
001307 0635 OFFS5 6 >T19A 
001308 0636 T2Z0A EWU $ 
001309 0636 C870 3A18 LDR $R49=zX*SZALB" PUT IN SYNC. CHARACTER TU TEST 
001310 0638 CFOO 12A9 . OTR $R49<LCT5S SYNCe LINE TYPES 
OO1311 O63A C870 OZIC LOR SR4—sX*21C8 SET LC? SYNCe FLAG 
001312 063C CFOO 1L2AD > STR $R4 9<SLCSSYF 
001313 O063E 7C05 LOV $R7qz5 NUMBER OF 30 MS DELAY FOR 800 BAUD 
001314 * 
001315 * TEST SYNCHRONOUS (3A AS SYNC. CHAR,) 
001316 aa * 
001317 OQO63F 9B80 1178 LAB $B1l9<SYNC LOAD LING TYPé 
001318 0641 8380 088} QA5 LNA $B3 <DTALOP LOOP SUBROUTINE 
001319 0643 OF85 B >T21 . 
001320 0644 1204 Oc <wCPl] 
001321 0645 12A5 oC <LCT5 
001322. 0646 0186 be 438 
001323 0647 JLIAE be <bOUT] 
001324 * 
001325 * TEST BI=SYNCHRONOUS LINES (3A AS SYNGe CHAR.) 
001326 * 
001327 0648 C871 Té2) LOR $R404+S81 LOAD JD IYPE INTO $R4 
001328 0649 C900 1179 CMR $R4 ¥<BI SYNC CHECK 10 SEE IF ALREADY DONE 
001329 06468 0902 BE >T2e ; 
002330 064C OFFS 6 >QA5 
001331 * 
001332 * TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR,) 
001333 * 
001334 064b 9880 LITA T22 LAB $B19<SYN188 LOAD LINE TYPE 
001335 U64F 68380 0881 LNJ $639<DTALOP LOOP SUBROUTINE 
001336 0651 OF85 3} >T34 - 
001337 0652 12D4 OC -SWCPL 
001338 0653 12A5 OC <LCT5 
001339 0654 O1B6 DC 438 
001340 0655 ILIAE oc <bOUTIL 
001341 * 
001342 % 
‘001343 0656 8700 1126 T34 CL <STPFG CLEAR STUP 1/0 FLAG 
001344 0658 8382 JMP $B2 
001345 * 
001346 * ; 
001347 eeKKKAKH AHHH EHR AKA HR HHH ERK AR HR RK KE HR HH HH K 2 
001348 x af \ 
001349 * STOP 1/0 CHECK ROUTINE 
0Q1350 * ne, 
001351 0659 8AD3 9T10 INC =$R3 CHANGE TO TRASMIT SIDE OF LINE Mn 2 
001352 065A C380 0807 STTQi LNG $B49<STCR STOP 1/0 
001353 * 
001354 065C C380 OBOE LNJ SB4e<INXT INPUT NEXT STATUS 
001355 _ O65E. 8205 STIQ5 Lb. =$R90=2910008. CHECK STATUS COMPLETE 
O65F 1000 — 
001356 0660 0503 bBT >TSTF3 
001357 Goel F380 OBA3 LNJ $B879<ERROR ERROR; STATUS NOT COMPLETE 
001358 0663 C380 OB14 TSTF3 LN $849<INRG INPUT RANGE 
001359 0665 5983 BNEZ SRO—>TSTFS 
001360 0666 F380 OBA3 LNJ $87 <ERROR ERROR; RANGE IS EQUAL TO ZERO 
001361 0668 3600 0687 — TSTF4& BEVN = $R3q<TSTF4A IF EVEN BOTH SIDE OF THE LINE SHUT-OFF 
001362 U66A 8803 DEC =$R3. CHANGE $K3 TO RECEYVE SIVE OF THE LINE 
001363 0668 DFOO 1126 STR $ROo<TP] STORE XMIT RANGE RESIDUE 
001364 066b 8980 112C CMZ <WDKFG SEE IF BROADBAND LINE 
001365 O66F 0914 BE >STIQZ SHUT RECVe LIWE OFF AFTER 70 TRANSFERS 
001366 0670 C380 OBOE LNJ $B49<INXT INPUT NEXT STATUS 
001367 0672 C380 0614 ST1Q3° LNJ $B4_9<INRG INPUT KANGE 
001368 0674 0970 0220 CMR SR59sX"2208 SEE IF 166 TRANSFERS HAVE BEEN DUNE 
001369 0676 OATC BAG >STIQ3 TF DONE 
001370 0677 C380 0B07 LNJ $B49<STCR STOP 1/0 ON RECVe 
001371 * 
001372 0679 C800 110) LDR S$R49<FIS INPUT STATUS 
001373 0678 C380 OB7E LJ $844<CGSCH 
001374 0670 8055 10 RSRDeFSR4 
O67E 0054 
001375 O67F 0703. BLOT >ST104 
001376 0680 F380 OBA3 LNJ $87 +<ERROR 
001377 OQ682 OFDC © STIQ4 6B >ST1Q5 
001378 * 
001379 0683 7€03 STI@2. LDby $R7 953 
001380 0684 0380 OB4C LNJ $B59<TDLAY TIME DELAY BEFORE SHUTTING OFF RECEIVE 
001381 0686 OFD4 b 757101 
001382. * 
001383. * CHECK RECESVED DATA 
001384 * 
001385 0687 C800 10FC TSTF4A LDR $R49<FQCC CCB RESET FOR REC 
001386 0689 C380 OB7E LNJ $B4 »<CGSCH 
001387 0686 8000 1184 10 <B1179=SR4 
0680 0054 
001388 O68& 0703 BIOT >QT2 
001389 * 
001390 O68F F380 OBA3 . LNJ $B7 9<ERROR ERROR; 4/0 WAS NAKeED 
001391 * 
001392 0691 8AD3 OT2 INC F$R3 
001393 0692 C800 10FC LDR $R49<FOCC CCB RESET FOR TRANSMIT 
001394 0694 C380 OB7E LNJ $B4 9<CGSCH 
001395 0696 8000 1184 10 <BIT7 s=SR4 
0698 Q054 
001396 0699 0703 ~BIOT >OT) 
001397 # 
001398 O69A F380 OBA3 LNJ $67 e<ERROR ERROR: 14/0 WAS NAKED 
001399 # 
001400 O69C DFOO 1127 QTL 9TR $R59<TP2 STORE RECEIVE RANGE RESTOUE 
001401 O69€ E380 099C LNJ $B69<BASE ; LOAD $K5 WITH LCT BASE 
001402 QeAO 5E10 AbV $R5e=16 
001403 QV6Al DFOO O6A8 STR SRSo<TSTF2B 


001404 O06A3 5E20 ADV $R5e=X"208 
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001405 O6A4 ODFOO 06B1 STR S$R5e<TSTFRB 
001406 * 
001407 O6A6 E380 OBSE LNJ $66 9<RDOLCT READ LCT 
001408 O6A%8 0000 TSTF2B OC 0 ADDRESS 
001409 O6A9 0002 DC 2 
001410 % 
001411 O6AA 68960 LIZE CMZ <LCTy 
001412 Q6AC 0903 BE >TSIFTK 
001413 Q6AD F380 OBA3 LNJ $B7+<ERROR ERROR RECVe LCT STATUS NOT CLEAR 
001414 % 
001415 QO6AF E380 OBSE TSTF7K LNJ $B6 9<RDLCT READ LCT 
001416 0661 0000 TSTF8B OC ¢) 
001417 Ob6b2 0002 DC 2 
001418 * 
001419 0683 89860 112E Cmd <LCIV CHECK LCI STATUS IS CLEARED 
001420 06b5 0903 BE >TSTF2 
001421 Uobo F380 OBA3 LNJ $B79<ERROR ERROR; LCT STATUS [5 NOT CLEAR 
001422 06BB 9800 1120 TSTF2 LDR SR1 9 <KANGE CALCULATE KANYE OF GOOD VATA TO BE CHECK 
001423 O6BA 9FOO 1115 OTR $R19<FBRG 
001424 O6BC 1001 . SOL $Rlel CHANGE TU BYTc& RANGE 
001425 O6Bb 9200 1126 SUB $K1le<TPl 
001426 O6BF 1041 SOR $K1l ol] CHANGE TO WORVS 
001427 O06CQO 8801 DEC =$R] 
001428 O06Cl 9FOO 1120 STR $R1e<RANGE 
001429 * 
001430 06C3 8980 12AD CMZ <LCOSYF CHECK FOR SYNC LINE 
00143] 06C5 0917 BE >TSTFSC 
001432 O06C6 1E04 ADV RI 954 
001433 06C7 C800 1126 LDR $R4e<TP] SYNC LENE CHECK FOR LINE MARKING 
001434 O06C9 C200 1127 SUB SR4e<TP2 
001435 U6CB 4041 SOR $R4el] 
001436 O6CC CAS] ALD $R4e=SR] 
001437 O6Cb 4EFS9 ADV $R4e"7 
001438 O6CE CFOO 1127 STR $R49<TP2 
001439 O6D0 C870 FFFF LOR SR4e5Z"FFFFY LINE MARKING VATA 
001440 Q602 C910 1¢000 TSTF5A CMR $R49<DIN. SRI] 
00144) 0604 0903 Be >TSTFS 
001442 0605 F380 OBA3 LNJ $B7e<ERROR ERROR; SYNCe LINE NOT MARKING WITH XMIT OFF 
001443 0607 6ADL TSTFS INC =$R1 
001444 06Ds 9900 1127 CMR $R1e<TP2 SEE IF ALL MAKKING DATA CHECK 
001445 Q6DA 0882 BAGE >TSTF4&C : 
001446 Lode OFF7 B >TSTFSA 
001447 * 
001444 O6bC C800 1100 TSTrF4C LOR $R49<DFLT CHECK KEMAINIWG DATA JS VEFAULT (5555) 
001449 O6DE 1E07 ADV SRl oa? 
001450 O6DF C910 1C00 TSTF4D CMR $R40<DINeSRI 
001451 Q6E&1 0903 BE >TSTFSE 
001452 O6&2 F380 OBA3 LNJ $67 »<ERROR ERROR; RECEIVE DATA [IN NO DATA AREA 
001453 O64 8AD1 TSTF4E INC =$Ri 
001454 O6&8&5 9900 1115 CMR $R1+<FBRG 
001455 O6E7 0878 : BAL >TSTF4D 
001456 O6F8 OF80 0940 b <JP4 CHECK FINAL GUOD DATA IN DTALOP 
- 001457 * 
001458 * 
ee 001459 Ge ae a I a ca a a eR ae a oe ee to ee een TE i ed ended 
001460 * 
001461 * 
001462 * UNDERRUN AND OVERRUN TEST 
001463 * 
001464 O6EA C870 4Az20 UORNTH LQR =-_SR4eeAtY 
001465 O6EC CFO0OO 1364 STR S$R4 a <ERMGS] 
001466 O6EE 8380 0986 LNJ $B3e<CLFG CLEAR ALL TEST FLAGS 
001467 O6FO 8700 12CA Cl <LCT8FG 
001468 O6F2 8A80 112C INC <WDBFG 
001469 O6F4 8A80 1124 INC <RUNFG SET UNVERKRUN AND OVERRUN TEST FLAG 
001470 O6Fe C870 021D LOR SR4e=zX*21D8 
001471 O6F8 CFOQO 12B6 STR  $R49<LCTOTF 
001472 O6FA 7C06 LOV SR79=6 NUMBER OF 30 MS TIME DELAY FOR TRANSFER 
001473 O6FB C870 OE18 LDR SR4esX"ElB? SET LINE SPEEv FOR aSyCe LINES 
001474 Q6FL CFOO 12B4 STR $R49<LCT6S 
001475 * 
001476 * TEST ASYCHRONOUS LINES WITH BAUD RATE 
001477 * 9600 BAUD, WITH 1 STOP BIT 
001478 * 
001479 O6OFF 9680 1176 T24 LAb $B19<ASYNIL LOAD LINE TYPE 
001480 O701 6380 0881 T242 LNJ $B3+<DTALOP GO TO LOOP SU6-ROUT INE 
001481 0703 OF85 B >T25 se 
001482 0704 123 DC <WCP4 ADDRESS [ABLE FOR BLOCK WRITE 
001483 O705 I12AF DC <LCT6 LCT TABLE 
001484 0706 O0O3F DC (DFLT=DOUT) RANGE IN WORDS 
001485 O707 IL19E bC <DOUT 
001486 * 
001487 * TEST CURRENT LOOP ASYNCHRONOUS 
001486 * 
001489 0708 CéBb7)] T25 LOR $R49+SB1 LOAD [VU TYPE INTO $R4 
001490 0709 C900 1177 CMR $R49<ASYNC CHECK !0 SEE JF ALREADY VONE 
001491 0708 0902 BE >T252. ‘ 
001492 O70C OFFS B >T24Z 
001493 070D T252Z EGU $ 
001494 070D 8700 112C cL <WOGFG 
001495 O70F F870 4010 LOR $R79zZ"*401D8 
001496 O711 FFOO 12B6 STR S$R7e<LCTOTF 
001497 O713 F870 1618 LOR $R79=Z°'16188 STORE SYNC. CrARe INTO LOT TABLE 
001496 0715 FFOO 1284 STR SRT 9<LCT65 
0021499 O717 7C40 LOV S$R79zX*408 NUMBER OF 30 MS TIME DELAYS 
001500 * 
00150] * TEST SYNCHRONOUS LINES (16 AS SYNC. CHARe) 
0013502 * 
001503 0718 9680 1178 LAS $B1e<SYNC LOAD LINE Type 
001504 O71A 68380 0881 QAE LNJ $B3e<DTALOP GO TO LOUP SUd=ROUTINE 
001505 O71C OFB85 B >T26 
001506 O710 123 vc <WCP4 ADDRESS TABLE FOR BLOCK WRITE 
001507 O71E I2AF DC <LCT6 LCT TABLE 
001508 U71F O02F DC (DFLT=DOUT 1) RANGE IN WORDS 
001509 O720 I1AE DC <DOUT) 
001510 * | 
001511 * TEST BI#-SYNCHRONOUS LINES (16 AS SYNCe CHaR,) 
001512 * 
001513 O721 C871 T26 LOR $R494+SB1 LOAD IU TYPE INTO $R4 
001514 0722 €900 1179 CMR $R49<BISYNC CHECK 10. SEE IF ALREADY DONE 
001515 07246 0902 BE >T27 


001516 0725 OFFS ) >GA6 
001517 * : 
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001518 * TEST MIL 188 SYNCHRONOUS (16 AS SYNC. CHAR,) 


001519 * 
001520 0726 9880 LITA T27? LAS $B1o<SYN188 LOAD LINE TYPE 
001521 0728 68380 0881 - LNJ $B3.9<DTALOP GO TO LOUP SUb-ROUTINE 
QO01522 O72A OFBS B >T32 
001523 0728 1263 Te <wCP4 ADDRESS TABLE FOR BLOCK: WRITE 
001524 O72C L2AF DC <LCT6 LCT TABLE 
001525 O72D O02F DC (OF LT=DOUT1) RANGE IN WORDS 
001526 O72E IlLAE DC © <bOUTL 
001527 * 
001528 * 
001529 O72F 8700 112C T32 <5 <WOGBFG 
001530 0731 8700 1124 CL <RUNFG 
001531 0733 8700 12CA cL <LCT8FG 
001532 0735 8382 JMP — $B2 
001533 * 
001534 * 
001535 KKK KR KARE ERK AKER A KREHARAEAKRARAR HE RHE RH ERR SE 
001536 *. 
001537 * UNDERRUN AND OVERRUN CHECK ROUTINE 
001536 * 
001539 0736 88D3 RUNCK DEC =$R3 
001540 0737 E380 099C LNJ $66 0<BASE LOAD $K5 WITH LCT BASE ADDRESS 
001541 0739 SE3C AbV $R5qaX"3C8 
001542 O73A DFOO 076] STR $R5o<RNCK1 
001543 * 
001544 0O73C 8980 112C CMZ <WOBFG 
001545. O73E O80F BAL >RNCKS 
001546 O73F C800 1101 LOR SR4e<FIS 
001547 O74) C380 OB7E LLNJ $64 9<CGSCH INPUT STATUS TO CHECK DATA 
0015948 0743 8055 10 F$R5 95 SRE SERVICE ERROR (BIT2) SET 

0744 0054 
001549 0745 0703 BIOT >RNCKSA 
001550 U74 F380 OBA3 LNJ $B7+<ERROR ERROR; 1/0 NAK*ED 
001551 0748 8205 . RNCK4A LB =$R505Z29°Z20008 

0749 2000 
001952 U74A 0503 BBT >RNCKS 
001553 U74B F380 OBA3 LNJ $B7 +<ERROR ERROR; VATA SERVICE ERROR BIT NOT SET ON OVR 
001554 O74) 8AD3 RNCK4 INC =$K3 CHECK XMILT DATA SERVICE ERROR 
001555 O74E 8980 112C CmMZ <WDGBFG 
001556 0750 OAOF BAG >RNCKS 
001557 0751 C800 1101 LDR SR49<FIS 
001558 0753 C380 OB7E LNJ $B49<CGSCH 
001559 0755 8055 10 =$RIO9FSR4 

0756 0054 
001560 O757 O703 BIOT | >RNCKSB 
001561 O758 F380 OBA3 LNJ $B79<ERROR ERROR; 14/0 NAK*ED 
001562 * 
001563 O75A 8205 RNCK46 Lb =$R50=Z24*20008 

0756 2000 
001564 QO75C 0503 BBT >RNCKS 
001565 0750 F380 OBA3 LNJ $B7 +<ERROR ERROR: VATA SERVICE ERRYUR BIT NOT SET ON UDR ia 
001566 O75F E380 OBSE RNCKS LNJ $B69<RDLCT READ LCT mo _ 
001567 O761 0000 RNCK] OC 0 7 i} 
001568 G762 0002 ve 2 Me a 
001569 © * 
001570 0763 8980 112C CmMz <WwDOBFG CHECK FLAG 
001571 0765 QO80A BAL >RNCKY 
001572 O766 8280 LIZE Lb <LCTVe=Z#02008 
0768 0200. 
004573 0769 QO50C bBT >RNCK6 
001574 O76A F380 OBA3 LNA $B79<ERROR ERROR; OVERRUN FATL TO SET BIT IN LRS 
OO1S75 O76C 8980 112C CMZ <WDOGFG CHECK FLAG TO TEST UNDERRUN BIT 
001576 O76— 0987 BNE >RNCKGE 
001577 * 
001578 O76F 8280 112E RNCKO L6 <LCTVs5Z901008 

O771 0100 
001579 O772 0503 BET >RNCK6 
001580 U773 F380 OBA3 LNJ $B79<ERROR ERROR; UNDERKUN FAIL TO SET BIT IN LRS 
001581 0775 OF8O 0985 RNCK6 6 <JPSA 
00158¢ * . 
001583 * 
001584 err Ee Rr TH TO wr Te re eee ee eee OO TE ee ee 
001585 % 
001586 * LOOP DSC INTO DSS WITH CABLE LOOP 
001587 * 
001588 * 
001589 * THE SIGNALS ARE TIED IN ACCORDING Tu THE FOLLOWING CHART}; 
001590 ® 
001591 Ko wewrwewerne > Ge OD OP Gn HP EE GP OD ED HO SR GF EF OP FF E> OP OP OF oH on ee en oe OK tek heed teed ee eee ere te 
001592 * § $ $ % $ $ 
001593 * $ DSS SASYNCHRONOUSSSYNCHRONOUS S$ BRYVADBAND $ BRUADBAND $ 
001594 * § é $6 MIL 188 $3 301/303 $ V35 $ 
001595 aaa ac at a a thc a aici 
001596 * § s $ $ $ $ 
001597 * S$ OUT CKT 1 S&S IN CKT 1 S&S IN CKT 1 S&S IN CKT 4 $ IN CKT 1 % 
001598 * $ > $ $ $ IN CKT 4 $ 
001599 Ke CSRS eee ore aes 5 eae ee see eee ae oe ae ee ee ee ee ee he ee ee een Be eS 
001600 * $ $ $ > $ S 
00160) * S$ OUT CKT 2 8 IN CKT 2 $ IN CKT 2 3S IN CKT 1 $ IN CKT 2 $ 
001602 x § $ IN CKT 3. S$ IN CKT 3 & IN CKT 2 $ IN CKT 3 $ 
001603 x $ $ $ S$ IN CKT 3 $ > 
001604 6 $rreree paren en ee Stee ae een en ever en ee mre ee F Seem meme Br en a ee et a aan Fe eee ee me SF 
001605 * $$ > $ — $ $ % 
001606 * $ OUT CKT 3 S$ IN CKT &@ §& -— $ Sadat $ er $ 
001607 * § IN CKT 5 & S $ S 
001608 Ro Grew mene enn geen nen nnn geen nme nn Fann mn Fenn nnn mmm sg 
001609 * § $ $ $ $ $ 
001610 * $ OUT CKT 4 $ ome $ IN CKT 4 $ oo-- $ alata $ 
001611 SES <a eee ee a nee eG pee ere ae et eres ae one Sn een eae se renin: Gr eminent eens em eet eo 
001612 * 
001613 * 
001614 O777 C870 4620 LPCBLK LOR SR4ezA 8 
001615 0779 CrFOO 1364 STR SR4 s<ERMG+] 
001616 U778 68380 0988. LNJ $639<CLFG CLEAR ALL TEST FLAGS 
001617 O770 8700 LLLA CL <MASK 
001618 O77F 9B80 1235 LAB $B1Le9<TLTBLA PUT ADVRESS OF SHOULD GE TABLE IN ZVSC 
001619 O781 9SF8O O7F6 f STB $B19<LOPD7+4+SAF 
001620 0783 9680 125A LAB $B19<C4 PUT ADURESS OF RANGE IN ZV$C 
001621 0785 9F8O O7F9 oTB $B19<LOPD7+4¢4H%$AF © 
001622 O787 C870 FCLD LDR S$RoesZ'FCIDE 
001623 0789 CFOO 12BD STR $R49<LC75M ~ SET MASK FO ASYCe LINE 


001624 QO7865 4C08 LDV $R4958 SET RANGE FOR CHECK ROUT INE 
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001625 OU78C CFOO 1127 TR SR4e<1P2 
OO0l626 O78E 7C02 LOV SRI vee LOAD $K?7 WITH NUMBER OF 30M5 DELAY 
001627 * 
001628 O78F 9B80 1175 LAB $Ble<ASYN LOAD $61 WITH ADDRESS OF LINE TYPE 
001629 U791 8380 0784 LNG $63 e¢<LOPDS BRANCH TU LOOP DSS INTO LSC AND CHECK 
001630 * 
001631 0793 9B80 1176 LAB SBI1s<ASYNI] LOAD AVURESS UF LINE TYPE 
001632 0795 6380 0764 LN $B39<LOPDS 
001633 * 
001634 0797 9680 1239 LAB S$Ble<TLTBLC STORE SHOULD wE ADDRESS FORK ZVSC 
001635 0799 9F8O OTF6 STb $B19<LOPD74¢4+4¢S$AF 
001636 0796 96860 1177 LAB $B1l e<ASYNCG LOAD ADDRESS VF LINE TYPE 
001637 O79bD 6380 O7B4 LNA $B3e<LOPDS 
001634 % 
001639 679F 9880 123D “LAB $B1le<ILTBLS 
001640 O7AlL 9F8O O7F6 STb $B1s<LOPD7+4+4SAF 
001641L O7A3 C870 F81D LOR $R4e=ZtFB1DE CHANGE MASK FUR SYNC, LINES 
001642 O7A5 CFOO 12BD STR S$R49<LC7SM 
001643 O7A7 9680 1179 LAB S$B1le<BISYNC 
001644 OU7A9 6380 07B4 LNJ $839<LOPDS 
001645 * 
001646 O7AKB 9880 1178 LAG $B1ls<SYNC 
001647 OU7AD 6380 0784 LNG $639<LOPDS 
001648 % 
001649 O7AF 9680 117A LAB $B1e<SYN188 
001650 O7Bi1 68380 07B4 LNJ $B3e<LOPDS 
001651 . O7b3 8382 JMP $bB2 
O0165¢ % 
001653 He eK Ke HK HR H EHH K KKK KKH HHA HR HR HK HK HHH HH RR 
001654 % 
001655 % KLUOP AND TEST OSC INTO DSS LOOP 
0016056 * 
001657 * 
001658 O7B4 9S9F80O O7B9 LOPLS STB $K19<LOPDI STORE ADDRESS OF LINE TYPE 
001659 O7B6 8753 CL =$RK3 
001660 O7B7 0380 0B38 LOPD LNJ $B59<FLN FIND LIN& ON 
00166] 0789 0000 LOPD] RESV SAF 50 LINE TYPt ADDKESS 
001662 O7BA 8383 JMP $83 
001663 QO7BKB C380 OAF3 LNJ $B49<GENITZ GENERAL INITIALIZE 
001664 * 
001665 * WRITE CHANNEL PROGRAM AND TLU TABLE INTO RAM 
001666 % 
OO1667 O/7Bb C570 FFBO AND SR4e=Z°FFRUF 
001668 O7bF C470 0040 OR $R49=X1408 
001669 O7C1L CFOO 110A OTR SKS oe S<CHNZ 
001670 CALL ZVSMLW se CHLPS oe WCP5 9HXZ200 eo CHNE 
O7C3 FBCO 0003 
0O7C5 0380 0000 X 
O7C7T OFBO 
O7C8 OF&49 
O7C9 12E8 
O7CA 1250 
ies O7CB JLIOA 
é % - 001671 CALL CVSMLWe TLUTB2Z 9WCP56 eo HX400 9 CHNG 
Q7CC FBCO 0003 
& O7Ce D380 0000 x 
i O700 OF8O 
O7D1L 1246 
Q7D2 12E9 
Q703 l25E. 
O704 1L1OA 
O0lE72 * 
0OOl673 O705 b0380 0B24 LNA $Bb59<SETLCT SEND OUT LCT LOCATIONS 
001674 O7D7 12B9 DC <LCT7 
001675 * 
001676 O7b8 C800 1127 LDR SR49<TP2 LOAD $R4 WITH RANGE 
001677 OUO7DA 0380 0B82 LNJ $85 e<MCCB FORM CCB TO TRANSFER DSS INTO MEMORY 
001678 Q7DC 1C00 bc <DIN 
001679 O7DbD v060 bc X*6ue 
001680 * 
00108] O7DE C800 OFC LOR SR4e<FOCC FORM J/0 CONTROL WORD 
OOl68e O7EO C380 OBTE LNJ $B4e<CGSCH FOR STARI I/O 
001683 O7E2 8000 1180 IQ <B1T1=$R4 
O7E4 0054 
001684 O7E5 0703 bBIOT >LOPOeg 
001685 OQO7E6 F380 UBA3 LNJ $8 79<ERROR ERROR; I[/0 WAS NAkrED 
001686 O7E8 D380 OB4C LOPbD2 LNJ $B59<TDLAY TIME DELAY 
001687 % 
001688 O7EA C380 OBOE LNJ SB4e<I NXT INPUT NEXT STATUS 
001689 O7EC 8205 i) =$R5e=Z#10008 CHECK STATUS COMPLETE 
O7ED 1000 
001690 O7EE 0503 BBT >LOPDT 
001691 O7EF F380 OBA3 LNW $B7s<ERKOR ERROR; STATUS NOT COMPLETE AFTER GNB 
001692 LOPD7T CALL LVSECoSeVINgMASK ¢ S$ 9ERAR 
O7F1 FBCOQ 0003 
O7F3 b380 0000 x 
O7F5 OF8O 
O7F6 OTF] 
O7F7 1C00 
O7F8 IJ1LA 
O7F9 OTF] 
Q7FA 1131 
001693 O7FB 8980 1131 CMZ <ERARK CHECK FORK ERRUR 
001694 O7FD 0900 BE >LOPD3 
001695 OU7FE bs00 1133 LUR $R5 o<ERAR+2 PUT *IS* INTO $R5 
001696 O8g00 E800 1132 LDR SR6e<ERARS] PUT "SHOULD Bet INTO $R6 
001697 QO802 F800 1131 LOR $R7e<ERAR PUT WORD COUNT INTO $R7 
001698 Us604 F380 OBA3 LNJ $B7 »<ERKOR ERROR; USC DID NOT LOOP INTO DSS CORRECTLY 
001699 CALL ZV$CO CONTINUE CHECKING FOR ERKOR 
0806 FBFO 0001] ce 
0808 6380 90000 x 
001700 Os0A 3E02 LOPD3 ADV $R39=2 CHANGE TU NEXT LINE 
00170, 0806 OF8O 0787 68 <LOPD 
001702 % 
001703 % 
001704 Ho mmm meme 
001705 * 
001706 * TRANSMIT MARK AND SPACE TEST 
001707 
001708 O80b C870 4C20 XMMSL LDR GR&esAML ¢ 
001709 O80F CFOO 1364 STR SK4e<ERMG+) 
001710 O81) #380 09868 LN $B3e<CLFG 


001711 Gsl3 C870 FFO7 LOR SR4ezZ*FFO7T! ALTER DATA 
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001712 
001713 
001714 
001715 
001716 
001717 
001718 
001719 
001720 
001721 
001722 
001723 
(001724 
001725 
OO1L726 
001727 
001726 
001729 
001730 
001731 
001732 
001733 
001734 
001735 
001736 
001737 
001738 
001739 
001740 
001741 
001742 
001743 
001744 
001745 
001746 
001747 
001748 
001749 
001750 
001751 
001752 


001753 
001754 
001755 
001756 
QOO1L757 
001756 
001759 


001760 
001761 
OOLT62 
001762 
001764 
001765 
001766 


001767 
001768 
001769 
001770 
001771 
00177¢ 
001773 
001774 
001775 
001776 
001777 
001778 
001779: 
001780 
001781 
001782 


001783 
001784 


001785 


001786 
001787 


0017868 
001789 
001790 
001791 
001792 


001793. 


001794 


001795 
001796 
001797 
001796 
001799 
001600 
001801 
001802 
001803 
001804 
001805 


0815 
0817 
0819 
0b1b 
81D 
O81F 
0821 
0823 


0824 
0825 
0827 
V829 
O82A 
0826 
082C 
U82D 


O82E 
O82F 
0830 
0831 


U83e 
0834 
0836 
0837 
0839 
0836 
083v 
O83F 


0840 
0842 
0843 
0845 
0847 
0849 
Q84A 
O84C 


O84E 
0850 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
O85A 


0858 


Q89v 
O85F 
0861 


0863 
0865 
0867 
0869 
0868 
O86c 
O86E 
O86F 


087] 
0873 
0874 


O875 
O877 
0879 
O87A 
O8B7C 
O87E 
O87F 


0881 
0883 
0884 
0886 
0887 
0889 
088A 


0888 
088Db 
O88F 
0890 
0891 
089e 
0893 
0895 
0897 
0898 
O89A 
0B9gC 
O89E 
O89F 
OBAl 
O08A3 
O8A5 


"REV AP 


CFOO LIAL 
8700 111A 
C870 O81A 
8A6O 111D 
8A80N 1128 
EBS8O 1177 
CFOO 1200 
7TC06 


2col 
9B80 1175 
B380 0881 
OF85 
12F6 
1ecc 
0005 
LI9E 


082E 
9D0D6 
0903 
9BAL 
OF F6 


C870 LOLA 
C900 1200 
O9E9 

8700 1110 
8700 1128 
C870 0607 
CFOO 1IAl 
8382 


0840 


—BFOO 1145 


0002 

bBBO 1251 
C800 12bD0 
C970 O81A 
0903 

DBBO 1255 
DF&8O 0853 


FBCO 0003 
D380 0000 
OF 80 
084E 
1¢00 
111A 
125A 
1131 
8980 1131 
0900 


0800 1133 © 


E800 1132 
F800 1131 
F380 OBA3 


FBFO 000] 
D380 0000 
C870 101A 
C900 1200 
0991 

E380 O99C 
DESC 

DFOO 0873 


E380 OBSE 
0000 
0002 


D870 FEOO 
0900 112E 
0903 

F380 OBA3 
8F80 1145 
0002 
OF80 0985 


8FOO 1155 
Olle 
9F80 0889 
8753 
D380 0638 
0000 
8383 


FBCO 0003 
D380 0000 
OF80 

1C00 

1100 

125D 

C808 0889 
C900 1177 
0983 — 
C380 O9FD 
BBC3 0001 
C380 OAF3 
DCF3 

C570 FF8O 
C470 0040 
CFOO 110A 
CCF5 


CLA TEST (SAF) 


v2 LAB 


U3 LN 


Ul EQU 


U5 LOR 


* 


$R49<D0OUT 43 
<MASK 
SRo—esXPBlAP 
<PARFG 
<TRMRK 
$B69<ASYNC 
SR4e<LCTOMS 
SRT 936 
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LOAD LCT WITH MARK BIT 


LOAD $66 WITH ADDRESS OF TABLE END 


NUMBER OF 60 MS DELAY 


TEST ALL ASYNCHRONOUS LINES 


SR2ex1 
$B1e<ASYN 
$B3 9<DTALOP 
>U1 

<wCP9 

<LCT9 


5 
<DOUT 


% 

$B19eSB6 
>U5 : 
$61 e$61¢5R2 
>uU3 


SR4eaX* LOLA? 
SR4e6LCTIMS 
U2 

<PARFG 
<TRMRK 
$R4—eazXP607F 
$R4e<DOUT+3 
$B2 


KHHKEKKERERKKEKKKKEE 


* 
% 


* 
XMOCK =EQU 


SAVE 


LAB 
XMSCK1 STB 


XMSCK2 CALL 


LN 
CALL 


XMSCK3 LDR 
CMR 
BNE 
LNJ 
ADV 
STR 

* 
LNA 

XMSCK4 DC 
bc 


LOR 
CMR 
BE 

LNJ 


* 


XMSCKS RSTR 


B 
* 


* 


td 


TGl RESV 


JMP 


CALL 


“LDR 
CMR 
BNE 
LNJ 

DTAL LAB 

LNJ 
LOG 
AND 
OR 
TR 
Lob 


3 
<SAV295Z'00028 


$B5 9<XMSB 

SR49<LCTOMS 
SR4eeXPBLAP 

>XMSCK1 

$6b5e<XSSB 

$B5 e<XMSCK2444S$AF 
ZVSCeoSoVINeoMASK oC49ER 


<ERAR 
>XMSCK3 

SRS e<SERAR+2. 
$R6e<ERAR+] 
$R7e<ERAR 
$87 9<ERROR 
ZV$CO 


SR4oRXVHLOLA? 
$R4e<LCTOMS 
>XMOCK5 

$B6 e<BASE 
$R59=60 

SRS 9<XMSCK4 
$B6 »<RDLCT 

Q 

a. 
SRSo=zZ*FEOO! 
SR5e9<LCTV 
>XMSCK5 

$687 »<ERROR 
<SAV2Z 92290002" 


<JPSA 


2 2 ee wo ee me -—— ow a mo om 


<SAV39=Z'01129 


$B1le<TGl 
#$R3 
$B59<FLN 
SAF 90 
$83 


ZVSF yDINSDFLT sHX200 


$SR4—e*<TGC] 
SR49<ASYNC 
>DOTAL 

$84 <SCLS 
$635$6361 ° 
$B4 9<GENITZ 
$65++$3B3 
SR4esZIFF EO! 
GRO gEXt4OE 
$R49<CHNZ 
$B49+3B5 


LOAD INDEX 


LOOP SUBROUTINE 


SEE IF ALL ASYNCHRONOUS LINES TESTED 


LOAD LOT FOR SPACE CONDITION 


CHECK 1F ALREADY DONE 


PUT DAIA BACK TO NoRMAL 


VATA CHECK FOR XMIT MARK AND SPACE 


SAVE $66 


LOAD AVDKESS FOR Zysc 
CHECK LC! TO SEE ITF MARK 
6B IF MARK TEST 


LOAD AVDRESS UF SPACE SHOULD BE 
STORE SHOULD oE ADDRESS FOR ZvVSC 
AR 


CHECK FORK ERROR 


PUT. #15 INTO. $R5 

PUT "SHOULD Be! INTO §$RO 

PUT WOKD COUNT INTO $R7 

ERROR; JRANSMIT MARK OR SPACE ERROR 
CONTINVE CHECKING FOR ERKOR 


LOAD $K5 WITH LCT BASE 
STOKE ADDRESS TO READ LCI 


ADDRESS 
LOAD $K5 WITH SHOULD BE 


ERROR; FRAMING ERROR FAILURE 
RESTORE $B6 


ee ee ee ee ee ee ee ee ee 


SAVE $63 9SB6 


FOR FIND LINE ON 
CLEAR. $K3 
FIND LINE ON 


NO LINE ON RETURN 
FILL INPUT BUFFER 


B IF NUT CURRENT Loop ADAPTER 

SET CURRENT LOOP ADAPTER SPEED 

DUMMY INCREMENT OF $83 

GENERAL INITIALIZE 

GET ABVRESS TU STORE FOR ZVSMLW CHANNEL 
SET CHANNEL FOR ZVsmLw 

OR IN VIRECTIUN BIT 

STORE CHANNEL FOR zys_I8 CALL 

LOAD AND STORE ADDRESS FOR 


do udovou dalentes cali st the usta ct ata nade af sass eens atta asa ils SA tat aan Mt Sa aE te Cec ENE Sans aiate et tieg Sele aged ath sibs A adh ook Ba abt Badal BE See clk cada de et EM ee ee Do tech Lule ate anh tet el UE Linda ae hs SAL ROTA Lad tora re, ae Mee meth greece bie tei ge lpee ae 8s aeeen ane Land an erat abennenamde dase Fate tb Se ate a tte a aa a me a Te a et eR vee ar venkat aman aia 
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001806 O8A6 CFB8O OBBA ST $B4 9 <LPWRT +44 $AF ZV$LI6 CALL 
001807 OB8A8 CCFS LbB $B49+4585 
001808 U8A9 CF8O 08C3 STb $B4 9 <LPWRT1+4+S5AF 
_ 001609 O8AB DLF80 08BB STB $B5 9 <LPWRT 444 2K SAF 
a 001810 O8AbD DBC5 0001 LAB $B5 $6501 INCREMENT $85 
001811 O8AF DLF8O 08C4 STB $B5 9 <LPWRT14¢44¢2*S5AF 
00181z2 0881 OvBCS O00] LAB $B5 9$B5el 
: 001613 0863 DFBO O8C5 STB $B5 eo <LPWRT1L+4¢3%SAF 
001814 % 
001615 LPWRT CALL ZVSMLWeSoSeHX200sCHNZ 
0665 FBCO 0003 
08B7 0380 0000 
08B9 OF8O 
O8BA O08B5 
08BB 08B5 
OsBC 1250 
O8BD 110A 
001816 LPWRTL CALL ZVSMLW9S9S0S0CHNZ 
O8BE FBCO 0003 | 
08CO b380 0000 
08Cz OF8O 
08C3 O8BE 
08C4 O8BE 
O8C5 O8BE 
QO8Ce LIOA 
001817 * 
OOl8l& O8C7 DCF3 LDe $B5 9+$B3 STORE ADVRESS FOR LCT TABLE 
001819 OsCB DFBO OBCC STB $B5 9<IG2 
001820 # 
001821 O8CA D380 0824 LNJ $B5 9 <SETLCT SEND OUT LCT 
001822 Oscc 0000 TG2 RESV SAF s0 
0018623 * 
001824 O08sCdD C800 1OFC LOR $R4 9 <FOCC CCB RESE! FOR REC 
001625 Os8CF C380 OBTE LNU $B44<CGSCH 
001826 08D1 8000 1184 10 <BIT79=$R4 
08D3 0054 
001827 08D4 0703 BIOT »>DT2 
001828 # 
001829 O8D5 F380 UBA3 LNJ $B7 9<ERROR ERROR; 1/0 WAS NAKtED 
0018630 # 
001631 O8D7 8AD3 bT2 INC =$R3 
001832 08D& C800 1QFC LDR $R49<FOCC CCB RESEI FOR TRANSMIT 
001833 O8DA C380 OB7E LNJ $B49<CGSCH 
001634 8DC 8000 1184 10 <BIT79=$R4 
O8DE 0054 
001835 O8DF 0703 BIOT »bdT3 
001836 * 
001837 O8EO F380 0bA3 LNJ $87 9<ERROR ERROR; 1/0 WAS NAKED 
001638 * 
001839 UsE2 C803 0T3 LDR $R49$bB3 LOAD RANGE 
001840 O8€3 CFOO 1120 STR $R4-9<RANGE STORE RANGE FUR ZV$§C 
001841 O8E5 4001 SOL $R4o1 CONVERT TO BYTES FoR CCB RANGE 
i 001842 * 
! 001843 O8F6 b8BC3 0001 LAB $B3»5B30l 
001644 O8E8 DCF3 LDB $B5 9 +$83 STORE ADDRESS FOR TRANSMIT BUFFER 
i 001845 O8E9 DF8O O8EF STB $B5 9<7G3 FOR CCB FORMAJSION 
001846 O8EB DF&O 0945 STB $B5 9<JUP4444$AF FOR DATA CHECK CALL (zVv$C) 
001847 % . 
001848 O8ED 0380 0B82 LNJ $B5 9<MCCB FORM CGB FOR TRANSMIT 
001849 O8FF 0000 TG3 KESV SAF 90 
001850 O8FO 0060 re X'608 
001851 * 
001852 O8Fl 88D3 DEC =$R3 GET RECVe CHANNEL 
001853 O8F2 0380 OB82 LNJ $B5 9 <MCCB FORM CCB FOR RECIEVE SIDE 
001854 OU8F4 1C00 bC <DIN 
001855 O8F5 0060 bc X'6or 
0018656 * 
001857 O8F6 5C01 LOv $R59=1 START 3/0 ON XMIT SIDE TO SET 
001858 U8F7 8AD3 INC =$R3 CONFIGe AND XMIT FILL CHARe (SYNC, ONLY) 
001859 O8Fs FE55 SWR SRT 9=SRS 
001860 O8F9 C800 1OFC LDR SR4—<FOCC 
001861 O8FB C380 OBTE LNJ $B4 9<CGSCH 
O0l862 O8Fb 8980 1128 CMzZ <TRMRK 
001863 O8FF 0980 0907 BNE <MELCO 
001864 0901 8000 1180 10 <BIT1Ls=$R4 
- 0903 0054 . 
001865 0904 0703 BIOT  >MELCO 
001866 0905 F380 OBA3 LNJ $B79¥<ERROR 
001867 0907 0380 0B4C MELCO LNJ $B59<TOLAY 
2 001866 0909 FE55 SWR $R79=SR5 
001669 090A 88D3 DEC =$R3 
001870 
001871 0908 C800 10FC LDR $R49<FOCC 
001872 0900 C380 OB7E LNJ $B49<CGSCH FORM 1/0 FOR START 170 
001873 O90F 8000 1180 10 <BIT19=3R4 
0911 0054 
001874 0912 0703 BIOT >vUP2 
001875 0913 F380 OBA3 LNJ $87 9<ERROR : 
001676 0915 0380 OB4C JP2 LNJ $B5 9<TDLAY TIME DELAY 
001877 0917 8980 1128 CMZ <STPFG CHECK STUP I/U TEST FLAG 
001878 0919 0903 BE >JP2ZA 
001879 U91A OF80 0659 8 <STIO BRANCH TU STOP I/O AND CHANNEL RESET TEST 
001880 O91C 8980 111D JP2A  CMZ <PARFG 
001881 O91E 0908 BE >JP2B 
001882 O91F 8980 1108 CMZ <COUNT 
001883 0921 0900 O5FC BE <PAR1 BRANCH TU CHECK THAT PARITY ERROR SET 
001884 0923 8AD3 INC s$R3 
001885 0924 OFBO 0840 8 <XMSCK B TO MARK AND SPACE CHECK ROUTINE 
001886 0926 C380 OBOE JP2B soLNY $B4y<INXT INPUT NEXT STATUS ON RECe SIDE 
001687 0926 £870 1000 LDR $R69eZ*1 0008 
001688 092A 8205 LB =$R5e=Z°10008 SEE IF STATUS COMPLETE 
0926 1000 
001889 092C 0503 BBT >JP3 
001890 092D F380 OBA3 LNJ $B87+<ERROR STATUS NOT COMPLETE ON RECe 
00189) # 
001892 O92F 8AD3 JP3 INC =$R3 
001893 0930 C380 OBOE LNJ $B49<INXT INPUT NEXT STATUS ON XMIT SIDE 
001894 0932 82D5 LB 3$R5e=Z*1000" SEE IF STATUS COMPLETE 
0933 1000 
001895 0934 0503 BBT >JP4A 
001896 0935 F380 OBA3 LNJ $B79<ERROR STATUS INCOMPLETE ON xMIT SIDE 
001897 0937 8980 1124 JP4A  CMZ <RUNFG ie 
001898 0939 0980 0736 BNE <RUNCK BRANCH TU OVERRUN AND UNDERRUN TEST 


TITLE DCMC2s *REV At 


001899 
001900 
00190) 
001902 
001903 


001904 


001905 
001906 
001907 


001908 
001909 
001910 
001911 
O019l¢ 
001913 
001914 


001915 
001916 
001917 
001918 
001919 
001920 
001921 


001922 


001923 
001924 
001925 
- 001926 
001927 
001926 
001929 


001930 
001931 


001936. 


001933 


001934 
001935 
001936 
001937 
001938 
001939 
001940 
00194) 
001942 
001943 
001944 
001945 
001946 
001947 
001948 
001949 
001950 
00195] 
00195e¢ 
001953 
001954 
001955 
001956 
001957 
001958 
001959 
001960 
001961 
00196¢ 
001963 
001964 
001965 
001966 
001967 
001968 
001969 
001970 
00197] 
001972 
001973 
001974 
001975 
001976 
001977 
001976 
001979 
001980 
001981 
001982 
001983 
001984 


0938 
0930 
093E 


0940 
0942 
0944 
0945 
0946 
0947 
0948 
0949 
094A 
094C 
094D 
094F 
0951 
0953 


0955 
0957 
0959 
0956 
095C 
095D. 
O95F 
0960 


096¢ 
0964 
0966 
0967 
0968 
0969 


O96A 
096C 
O96E 
O96F 
0970 
O97] 
0972 
0973 
0974 
0976 
0977 
0979 
0978 
097b 


U9TF 
0981 
0983 


9989_ 


0986 
0988 
0989 


0985 
098D 
O968F 
0991 
0993 
0995 
0997 
0999 
0996 


099C 
099b 
U99E 
O99F 


8980 
0903 
D380 


FBCO 
D380 
OF 80 
0940 
1c00 
111A 
1120 
1131 
8980 
0900 
D800 
E800 
F800 
F380 


FBFO 
D380 
8980 
O92ZA 
5C08 
b900 
0926 
8600 


FBCO 
0380 
OF 80 
1000 
LL9A 
1120 


FBCO 
b380 
OF8O 
1b00 
1C00 
LLIA 
1120 
113) 
8980 
0900 
D800 
E800 
F800 
F380 


FBFO 
0380 
8600 


. BAD3 


8F80 
Olle 
OF 8O 


8700 
8700 
8700 
8700 
8700 
8700 
8700 
8700 
8383 


D853 
504] 
5F40 
8386 


L1OF 
044D 


0003 
0000 


1131 


1133 
1132 
1131 
UBA3 


0001 
0000 
1109 
110C 
LLLA 


0003 
0000 


0003 
0000 


1131 


1133 
1132 
1131 
OBA3 


0001 © 


0000 
LILA 


1155 


0887 


L1QF 
1110 
4129 
Lieb 
liec 
1106 
1109 
1124 


OR OR Ok OK OR OR KK OK KK OR KK KO OK KK OR KK 


CLA TEST (SAF) 


Sw we ww ee me we ee ee eee oe em we ne me ee ewe ee ee ee ge Oe we en ee me we me 


* 
CMZ <CRCFG 
BE >JP4 
LNJ $85 e<CRPRT 
& . 
* . 
* CHECK IF DATA LOOP C 
* 
JP4 CALL ZVSCeSeDINe MASK sRANGE 
CmZz <ERAR 
BE >JP5 
LDR $R5 9<ERAR+2 
LDR SRO _e<ERARS] 
LOR $R7 9<ERAR 
LNJ $B7e<ERROR 
CALL ZV$SCO 
JP5 CMZ <CHOZFG 
BE >JP5SA 
LDV $R5_z8 
CMR $R5e<CS 
BE >JP5SA 
CPL <MASK 
CALL ZVSF sDINI oCPFLG+3 RAN 
CALL ZVSGCeDINI DIN MASK oRA 
CmZ <ERAK 
BE >JP58 
LOR $R5o<ERARe2 
LOR $R69<ERAR+1 
LDR $R7e<ERAR 
LNJ $679<ERROR 
CALL Z2VSCU 
JP56 CPL <MASK 
* 
JPSA INC e$R3. 
RSTR <SAV3e=Z°O0112° 
i) <NXLT 
* 
* 
Kee eecssssrsresseResssaesetesssscesc: 
* 
* CLEAR TEST FLAGS 
* 
CLFG CL <CRCFG 
Ck <PARFG 
Ck <SBIFG 
Ch <STPFG 
Cl <WUOBFG 
Ch <ARFG 
Ch <CHSZFG 
CL <RUNFG 
JMP $B3 
* 
RSESseswresrsreascesseszsserzetersescszszsz2z= 
* 
* LOAD $R5 WITH LCT BASE 
* 
BASE LDR $R59=$R3 
SOR SR5e1 
MLV $R5—eRXN4OP 
JMP $B6 


CRO GENERATOR 


OUTPUT = TAKES TABLE 
ONLY FOR 


TO USEs MUST SET; 


$63 
$B6 


SRE 
$R7 


R6 = NUMBER OF BITS I] 
R7 = RANGE IN BYTES 
B3 = TABLE ADDRESS 
66 = ADDRESS JF CRC T 


LNJ $64 9<CRC 


PAGE 20 


TEST CRC AND PARITy FLAG 

FLAG NUT SET JUST CHECK DATA 

GO CHECK CRC RESIOUE AND PARITY 
ORRECTLY 


eERAR 


CHECK FOR ERROR 
PUT IS IN $R5 

PUT SHOULD BE INTO §R6 

PUT WOKD COUNT INTO $§R7 
CONTINUE LOOK{NG FoR ERRORS 


CHECK CHARACTER SIZE TEST FLAG 
IF SET CHECK HIGH ORDER VIGITS FOR ZEROS 


COMPLEMENT MASK TO CHECK OTHER BITS 
GE CLEAR SHOULD BE TO ZEROPS 


NGE sERAR 


CHECK FORK ERRURS 

PUT IS INTO $k5 
PUT SHOULD BE INTO gR6 
PUT WOKD COUNT INTO $R7 
ERROR; 
CONTINVE LOOKING FOR ERRORS 
RESET MASK 


FIND NEXt LINE ON OF THIS TYPE. 
RESTORE 3$B35$06 


ADDRESS 


OF DATA AND FURMS ACCUMULATED CRC, 
CRCL6 AND CC1ITTe 


N CHARe 


YPEe 


@ AVURESS WHERE CRC ACCUMULATOR IS STOKED 


= ADDRESS OF CRC TYPE 

~ CONTAINS NUMBER OF BITS 

- THE NUMBER OF CRC TO BE 
GENERATED FROM THE TABL 


THE ACCUMULATED CRC IS STO 


IN CHARACTER 
E AT 363 


RED IN LOCATIUN CRCAC, 


SOME HIGH ORDER BITS SET IN CHARACTER 


ee 
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001985 % 
001986 O9AU 8FOO 1135 CRC SAVE <SAV19=Z*F9948 
O9ALZ F994 : 
001987 O9A3 C876 LOK $R494+S66 PUT CRC IYPE 4NTO $R4 
001988 O9A4 8751 CL eS$RI 
001989 OQO9A5 8753 CL #$R3 CLEAR $R3 FOR LONG SHIFT 
001990 O9A6 8752 CL zERZ 
001991 O9A7 8256 NEG =SRO6 
001992 O9A8B EFOO 1125 OTR $ROe<TLOC STORE COUNTER 
001993 O9AA DL2FF LLH SRS o$H364SK3 
001994 O9AB 7001 SOL S$R7o1 
001995 G9AC 8257 N&G =$R7 
001996 O9AD OF5]1 CRCA STR $R5 9=SR] 
001997 O9AE 504] SOR $R5el 
001998 O9AF 9652 XOR $RLex$RZ 
001999 O9b0 204] 20R $R201 
002000 O9b61l 1802 BEVN $R1—>CRCB 
002001 O9B2 A654 XUR S$R2 a= SRS 
002002 09683 67FA CRCB BINC $R6—9>CRCA 
002003 0984 DOFF LOH $R5 9$630+5R3 
002004 0965 E800 1125 LOR $ROe<TLOC RESET CHAR, CUUNT 
002005 O987 T77F6 BING SR7—9>CRCA DO NEW CHARACTER 
002006 0988 AFOO 110E STR $R29<CRCAC STORE LAST CRE ACCUMULATED 
002007 O9BA 8F8O 1135 RSTR <SAV1o=Z°F 994! RESTORE REGSe 
O9BC F994 
6 002008 OU9BD 8384 JMP $b4 
002009 * 
002010 © RoSo eS moos ss sos crosses esr RST Ss ess ess ssr sess ssssssessse cesses esssrsssszscecs 
002011 * 
002012 * PARITY CALCULATOR 
002013 % 
002014 * TO USEs MUST SET; 
002015 * $27 = RANGE OF DATA IN WORDS 
002016 * $61 - ADORESS OF DATA AFTER paRITY HAS BEEN ADDED 
002017 * $83 = ADDRESS OF VATA JO ADD paRI!Y ON 
002018 * PTTY = LMEANS OUD PARITY 
002019 * QO MEANS EVEN PARITY 
002020 * 
002021 O96E 8FOO 1135 CPAR SAVE <SAVI«e=Z*EFDO? SAVE REGSIe 
O9COQO EFDO 
002022 09Ci 9800 110C LDR $R19<CS LOR $R1 WITH WUMBER To SHIFT 
002023 09C3 88bl DEC FSR] 
002024 O09C4 8755 Ch =$R5 
002025 O9C5 8752 CL =$RK2 CLEAR INDEX 
002026 O09C6 8257 NEG =$R7 NEGATE RANGE FOR BRANCH AND INCREMENT 
002027 O9C7T C2A3 CPAR2 LLH SR4 9 $B3eSK2 LOAD $K4 WITH HALF woRD UF VATA BUFFER 
002028 O09C8 8980 1109 CmMZ <CHSZFG SEE IF CHAR. oIZE TEST 
002029 O9CA O90F bE >CPAR3 
002030 O9CB 6C08 LDV S$R69=8 IF 8 BIT CHAR. DO NOT STRIP BITS 
00203) O09CC £900 110C CMR $R69<CS 
002032 o9Ck 0906 BE >CPAR3 
002033 O9CF 8806 DEC = SRO IF 7 OK 6 BIT CHAR, STRIP FUR PARITY TO BE SE 
err 002034 0900 £900 1]0C CMR SRE9<CS 
4 : 002035 O9D2 0904 BE >CPARS 
002036 0903 E870 00I1F LDR SROeRXVLFE MASK TU STRIP WITH 6 BIT CHAR. 
" 002037 0905 OF83 B >CPAK5 ; 
002038 O09D6 €870 003F CPAR4 LUR SRO g=EX* SF? MASK JU STRIP WITH 7 BIT CHAR, 
002039 Oo9bse C556 CPARS AND SR4 gp =ES$KE STRIP BIT TO CHAR S]ZE MINUS PARITY BIT 
002040 0909 CF56 CPAR3 STR $R4e=5$5R6 SAVE CHAR IN sR6 
00204) m 
002042 h CALCULATE PARITY FOR THE CHARe 
002043 =. * 
002044 O9DA 50C4 DOR $R594 
002045 U9Ds CFOO 1125 STR $R4o9<TLOC 
002046 O9DD 8754 CL =SR4 
002047 O9DE 5084 DOL $R504 
002048 O9DF C600 1125 XOR $R49<TLOC 
002049 O9EF1 50C2 DOR SROez 
002050 O9E2 CFOO 1125 STR $R4e<TLOC 
002051 O9E4 8754 CL =$R4 
V02U52 O9E5 5082 DOL $R502 
002053 U9E6 C600 1125 XOR $R4e<TLOC 
002054 O9E8 404] 90R $R49] 
002055 O9E9 0682 BCF >CPAR] 
002056 O9EA B8ADS INC =$R4 
002057 O9EbB C600 IIILE CPAR1L XOR SR4Oe<PTTY 
002058 % 
002059 U9ED 4000 20L $R4 50 SHIFT PARITY olT To posiIIION 
002060 U9EE £454 OR S$R6—e=5R4_. PUT PARTIY BIT INTO DATA 
002061 O9EF ETED STH SR6 oSB1 0 + SR2 STORE INIO DATA SHOULD be 
002062 O9FUO 7780 09CT BINC $R79<CPAR2 DO NEX! CHARACTER 
002063 O9F2 8F80 1135 RSTR <SAV1L eo =Z*EFDO? RESTORE REG. 
O9F4 EFDO 
00206% O9F5 8384 JMP $B4 JUMP OUT OF PARITY FORMATION SUB-ROUTINE 
002065 ® 
002066 HSSSSSoS SSeS es SAS essa scessSssSrsassseRatTesSstseessestseseeketssssseseszsesz 
002067 * 
002068 * SET TEST MODE ON FIRST LINE OF CLA 
002069 * 
002070 * LNJ $849<STMD 
002071 * 
OO2072 U9FO B8BFOUO 1145 STMD SAVE <SAV2Ze=Z'*DFS8C?! SAVE REGS. 
O9FB OFBC 
002073 O9F9 3EFE ADV SRE e5"2 SET $R3 TO RECVe CHAN, ON FIRST LINE 
002074 O9FA .CB80 OBEE LAB $B4 9<CHLP LOAD $64 WITH ADDRESS OF CHANNEL PROG. 
002075 O9FC OFS8E B >STMb2 
002076 Masscsssseserscssssssssssssssrsn sess ssssstssssssssettsesesstessseessezescs 
002077 * 
002078 * SET CURRENT LOOP ADAPTER FOR FASTEST SPEED 
002079 * 
002080 U9FD 68FOO 1145 SCLS SAVE <SAV2e=Z* UF SC? SAVE REGS. 
OSFF DFE8&C 
002081 QA00 C800 LOFC LDR S$R4—9<FOCC 
~Q0Q2082 OA0Z C380 OB7E LNJ $649<CGSCH 
002083 OA04 8000 117F SCL5] 10 <BJ J0e=$R4 CHANNEL INITIALIZE 
OA06 0054 
002084 OA0T O7FD BIOF >SCL5l 
002085 OA08 CB8O OBF3 LAb $B49<CHLPS LOAD $64 WITH ADDRESS OF CHANNEL PROG. 
002086 UAODA CF8O VALI STMb2 STB $B49<STMD3444+S5AF STORE ADUVRESS FOR zvy$mbw 
002087 UVAOC C800 1102 LUR $R49<F INS LOAD AN 1/0 TU GET CHANNEL FOR ZVSMLW 
002088 OAOE C380 OB7E LNJ $84 .<CGSCH 
002089 OUALO C570 FFCO. ANU SR4eeZL°FFCO! STRIP OFF DIRECTION BIT AND FUN CODE 


002090 OAlzZ CFOO 110A STR $R4 9 <CHNZ STORE CHANNEL FOR CALL 
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00209) 
002092 


002093 
002094 
002095 
002096 
002097 
002098 
002099 


002100 
00240] 


002102 


002103 
002404 


002105 
002106 
002107 
002108 
002109 
002110 
002111 


002112 
002113 
O02114 
002115 
002116 
002117 
002118 
002119 
002120 
002121 
002122 
002123 
002124 
002125 
002126 
002127 
002128 
002129 
002430 
002131 


002132 
002133 


002134 


002135 
002136 
002137 
002138 


002139 
002140 
002141 
002142 
002143 
002144 
002145 
002146 
002147 
002148 
002149 
002150 
002151 
002152 


002153 
O02154 
002155 
002156 
002157 
002158 
002159 
002160 
00216] 
002162 
002163 
002164 
002165 
002166 
002167 
002168 
002169 
002170 
00217) 
002172 


002173 
002174 
002175 
002176 
002177 
002176 
002179 


002180 


002181 
002182 


002183 


OAL4 
QA16 
OAL& 
QALY 
QALA 
OAL 
OAIC 
OAL 
OAIF 


OA20 
OAZ)i 
OA23 
OA25 
OALT 
OA28 
OA2A 


OALC 
OA2ZE 
QA30 
OA31 


OA32 
QA34 


OA35 
OA36 
OA38 
OA3A 
OA3b 
OA3V 
OA3F 
OA4l] 
0A43 
OA44 
OA46 
OA48 
OASA 
OA4SC 
OA4SD 
OA4SF 
OAS] 


VA53 
QAS5 
OA56 


‘QA57 
VARY 


QASA 
QASb 
OASC 
OASE 
OASF 
OA60 
OA6] 
OA63 
OAG5 
OA6O6 
OA68 
OA69 
OA6B 
OAGC 
OA6D 
OAGE 
QA6F 
OATO 
OAT? 
VATS 
OAT6 
OAT8 
OAT9 
VATA 
OAT 
OATC 
OATE 
QA80 
OA8] 
OAB2 
OA83 
OA&4 
OA86 
OA8BT 
OA89 
OA86B 
OA8BC 


OA8D 
OASF 


0A90. 


OA) 


OA93 
OA95 
OA97 
OA98 
OA99 


FBCO 
D380 
oF 80 
OAL4 
1203 
125D 
110A 
D380 
1283 


8757 
C800 
C380 
8000 
0054 
0700 
F380 


D380 
8F80 
DF8BC 
8384 


8F00 
D380 


CF51 
CB00 
CFOO 
C85] 
C6800 
C370 
CA00 
CFOO 
C851 
CB00. 
C370 
CA00 
CFOO 
C85) 
CB00 
C370 
CA00 


8F BO 
D380 
8385 


BFOO 
DF8O 
8756 
9826 
9970 
0983 
1E07 
9255 
F870 
FBOO 
F354 
- gD00 
8756 
F800 
FB51 
8207 
8000 
0502 
6903 
8A80 
8D00 
8D30 
F800 
TFOA 
F354 
FF55 
0851 
0370 
DAOO 
7000 


TFOA 


F354 
FBS] 
F370 
FA55 
FFOO 
8F80 
DF 80 
8385 


8F00 
B8sFr 
304] 
BFOO 


FBCO 
D380 
OF 80 
1313 
1107 


0003 
0000 


OB24 


LOFC 
OB7E 
1180 


OA2C 
OBA3 


OB4C 


1145 


1135 


1110 
1125 


Lill 
OOOA 
1125 
1125 
lille 
0064 
1125 
1125 
1113 
O3E8 
1125 


1135 


1135 
OFOO 


O3E8 
110b 


1126 
1127 


1117 
1118 
11E2 
1126 


QOOA 
111¢€ 


0064 


111C 
1135 


1145 


1125 


0003 
0000 


CLA TEST (SAF) 


PAGE 22 
t 
STmMD3) CALL ZLVSMLWeS oWCP 9 HX200 oe CHNZ 
LN $B59<SETLCT SEND OUT LCT 
DC <LCT 
* 
CL =$R7 CLEAR FOR SHORT DELAY OF 30 MSe 
LOR $R49<FOCC FORM CONTROL wORD 
LNJ $84 9<CGSCH FOR 
10 <BIT10=$R4 START 1/0 
BIOT <STMD1 
LNJ $87 s<ERROR ERROR; 1/0 WAS NAKED 
* 
STMD1  LNJ $65 e<TDLAY TIME DELAY 
RSTR <SAV2e=Z*DFSBC! RESTORE REGS. 
JMP $B4 
* 
RSESSSSSSSSSSSSSSHMSRSSSSSSSSSSSS SAS ASS SHS SS SSSR Sess ss cere Ses sesssesesssses 
* 
* CONVERT RTC TICKS TO MILSECe 
* 
TKSEC SAVE <SAV19=Z'D380! SAVE REGS. 
* 
STR $K49=SR1 DUPLICATE VALUE IN $R1 
MUL $R49<D1V1 
STR $R49<TLOC 
LDR $K4eFSR] 
MUL SR49<D1V2 
DIV $R45310 
Abb $R4e<TLOC 
STR $R49<1LOC 
LOR $R4 9 FSR] 
MUL $R49<DI1 V3 
DIV $R4e=100 
Abd $R49<TLOC 
STR $R44<TLOC 
LDR S$R4o9=SK] 
MUL $R49<DI V4 
DIV $R49z1000 
AbD SR49<TLOC 
* 
RSTR <SAV19%Z'D380" 
JMP $B5 
* 
RSSRSSSSSHSSSASSRSSSSHRASSSSTSRAMASSSSSHTSSHRSSAS ESHA ERET STE SRSSSSSSS SSS SSss 
* : 
* CONVERT MS TO BITS/SEC (GIVEN CHARe SIZE & NUMBER) 
* 
BPS SAVE <SAVL eo sZtDF BQ? SAVE REG. 
CL =$R6 CLEAR $R6 FOR DIVIDE 
LOR $R1+$B66SRK2 LOAD S$K1 WITH NUMBER OF CHAKe 
GMR $R19=3840 
BNE >BPS] 
ADV SKlee/ 
SUB $K19=$R5 
BPS] LOR $R79=1000 CONVERSION FACTOR FOR MS TOC. 
MUL $K79<CSb MULTIPLY BY CHARACTER SIZE 
DIV SRT 9=SR4 DIVIDE BY ACTUAL TIME IN MS 
SDI =—s < TPL STORE VOUBLE INTEGER 
CL =$RO6 
LDR SR79<TP2 
MUL SK7 9S] 
Lb =$R7e=Z'80008 
BBT >BPS2A 
BEL $K69>BPS2 
BPS2A INC <HGSPD 


BPS2 Svl <MSBS 
SbI <SYLSP0.$K3 
LOR $R79<TPl 
MLV $R79F10 
DIV SRT e=SRS 
STR SRT e=SRS 
MUL $R5e=SR1] 
DIV $R5e=10 
ADD $R59<MSUS+1 
DOR $RT016 
MLV $R7e=10 
DIV $R7 ee SR4 
MUL, $R7 oF$R} 
DIV $K79=100 
ADD $R79=$R5 
STR © SR7e<MSBS4] 
KSTR <SAVLo=Z°DFBOF 


JMP $B5 
* 
Resrensccs sree ssrsesrseesesseersseas 
‘. ’ 
* PRINT LINE SPEED 
* 


PRTLSP SAVE <SAV2Z9=Z*BSEF? 


SOR SRB 91 
STR $R39<TLOC 
CALL  ZVSTC»MESG2 sBYTP 


CALL — ZVSTDsTLOC 


ee ee we oe te we Fe Pm we me ee 


SAVE REGS. 


SHIFT SR3 TO REPRESENT LINE NUMBER 


STORE LINE NUMBER FOR ZVSTD 
PRINT LINE TYPE 


PRINT LINE NUMBER 


ee ee ee ee ee ee ee ee 
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QOA9A FBCO 0003 


OA9C D380 0000 x 
CASE OF8O 
VASF 1125 
002184 CALL ZVST »eMESG4 PRINT "SPEED? 
QOAAO FBCO 0003 
OAA2Z 0380 0000 Xx 
GAAS OF8O 
QAA5 131C 
002185 UAA& 0380 QA32 LNJ $B5e<IKSEC CONVERT NUMBEK OF TICK IN $R4& TO MS 
° 002186 * 
OO2Z187 OAAB D3B0 0A57 LNJ $659<bPS USE S$R& 10 CALCULATE BITS/SEC 
002188 OAAA 8980 1117 CMZ <HGSPbD CHECK FOR HIGH SPEED LINE 
002189 UAAC 0919 BE >PRLT3 
002190 QAAD 8CBO 1116 LDI <™S6S LOAD DUUBLE INTERGER INTO $R655R7 
002191 OAAF F370 O3E8 DIV $R7»=1000 FIND NUMBER OF KB 
002192 OABL FFOO 1118 STR $R7s<MSBS 
002193 OAB3 6D64 CMV $R6 95100 
002194 OABS OAO02 BAG >PRLI5 
002195 OAB5 6C64 LUV $R64=100 
002196 OABE EFOO 111¢ PRLT5 STR $K6e<MSBSe1 
002197 CALL L2VSTOeMSBSeBKLS PRINT NUMBER UF K& 
OABB FBCO 0003 
OABA 0380 0000 Xx 
OABC OF8O 
QABD 1118 
OABE 1190 
002198 CALL ZVST »COMMA 
OABF FBCO 0003 
OACL D380 0000 X 
QOAC3Z OF8O 
OAC4S 1L19C 
002199 PRLT3 CALL ZVSTOeMSBS4] eBKLS PRINT CINE SPrED 
OACS FBCO Y003 
OAC7T D380 0000 Xx 
OAC9 OF8O 
OACA LLIC 
OACB 1190 
002200 OACC 8980 129C CMZ <LC3SYF IF SYNC. LINE ALL DONE 
002201 OACE 0999 BNE >PRLTL IF ASYNCe PRINT SHOULD BE 
002202 OACF EBBO 12il2 LAB $B65<ALSPBL LOAD AVDRESS UF "SHOULD BE* SPEED TABLE 
002203 OAD1L C870 2108 LDR SR4 =X" 21088 IF NEW LINE SPEED CHANGE $66 TO POINT TO TABL 
002204 O0AD3 C908 0320 CMR S$R49%<ST1 
002205 OAD5 0903 BE >PRLT7 
002206 VUADG EBD 1221 LAB $86 +<CMSPBL 
002207 PRLT7 CALL ZVST »MESGS PRINT "SHOULD BE? 
OADS FBCO 0003 
OADA 0380 0000 xX 
OADC OF8O 
OADD 1322 
O02Z2Z08 OADE 6826 LDR SR3 9 3B6eS$R2 LOAD $K3 WITH LINE SpEED 
002209 OADF BFOO 1125 STR $K39<TLOC 
aes 002210 CALL ZVSTDeTLOC 
; OAE]L FBCO 0003 
QOAE3 0380 0000 X 
OAE5 OFB8O 
OAE6 1125 
002211 OAE7T 9800 111¢ PRLT1 LOR $R19<MSBS41 STORE AWAY LINE SPEED (SYNC) 
OO02212 OAED Y9FOO 1118 STR $R19<HI SPD 
002213 OAEB 8700 1115 GL <MSBS. 
002214 OAEVD 8700 ILIC CL SMS65e] 
002215 OAEF 8F&O 1145 RSTR <SAV2Ze=Z'BS8F? RESTORE R 
OAF1 688F 
QOO02Z216 OAF2 8384 JMP $84 
002217 * 
002218 RSSSOCSMSHRSS SS ASSSSSTSSSS TASS SSS ST SST AS SHSSSHSESSSSBSVSSeesrssesesrtesssssesss= 
002219 * 
002220 * GENERAL INITIALIZE FOR DLCC 
00222) * 
002222 OAF3Z 8FOO 1145 GENITZ SAVE <SAV2 922911188 SAVE BfleSR7 
OAF5 1118 
002223 OAFo 7TCIA LDV $R79=26 ALLOW 800 MS VELAY 
002224 OUAFT7 C800 LOFA LDR SR4—e<FOMC GET FUNCTION CODE FOR INITIALIZE 
VO2225 OAF9 C380 OB7E LNJ $B4e<CGSCH MODIFY FOR CHANNEL 
002226 OAFB 8000 LITF Te) <BIJTO9=$R4 INITIALIZE 
OAFD 0054 
QOZ2Z27 OAFE 0703 BIOT >N2 
QO2228 OAFF F380 OBA3 LNJ $87 s<ERROR INITIALIZE WAS NAKeED 
002229 OBOL 0380 UB4C N2 LNJ $85 9<TDLAY WAIT 30 MS 
002230 06803 8F8O0 1145 | RSTR <SAV2 022811188 
OBO0> 1118 
0Q223] OB06 8384 JMP $B4 RETURN 
002232 * 
002233 RSSSSSIS SASH ASS SSSRSTSS MASS SS SSS SS HS STS TSS SSS RSs eset Sees esses erssssssssssss 
002234 * 
002235 % OUTPUT CHANNEL CONTROL 
002236 * : 
002237 * $R2 = CONTAINS CHANNEL CONTROL TYPE 
002236 * 
002239 OB07 BFOO 1135 STCR SAVE <SAV19=Z*0008! SAVE REGe 
OB09 0008 
002240 OBOA 0852 LOR $R59=$SR2 
002241 0606 C800 OFC LOR $R4_9<FOCC LOAD FUNCTION CODE FOR CHANNEL CONTROL 
002242 OBOD OFBC 6 >NLA 
002243 RISSSSSSSSSSSSSSS SS SHSSSSSSSSUH SSS sss SST SS SS ST sSssSeSs tS eeessstsstssesssezsezcs 
002244 # 
02245 *% INPUT NEXT STATUS TO R5 
002246 * 
002247 OBOE 8FOO 1135 INXT SAVE <SAV1e5Z'00088 B¢ 
OB1O 0008 
V02248 OBLI C800 1102 LDR $R4_<F INS GET CONTROL WORD FoR JNPUT NEXT STATUS 
002249 0613 OF86 B >NLA 
002250 MSS stasssscsssssSsssststssrsassssss=sssstessssersssrsssesessssssssscscssseescs 
00225] * 
002252 * INPUT RANGE 
002253 * 
002254 * SR5 © RESULT OF RANGE INPUTED 
002255 * 
002256 OB14 8FOO 1135 INRG SAVE <SAV192=Z90008! SAVE REGe 
QB16 0008 . 
002257 OB17 C800 1100 LOR $R49<FIR LOAD $K4 WITH FUNCTION CUDE FOR INPUT RANGE 
002258 OBI19 C380 OB7E N1A LNJ $B849<CGSCH MODIFY FOR CHANNEL 


002259 QOB81B 8055 Te) FSRI9=SR4 
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0054 
0703 
F380 
8F80 
0006 
8384 


8FO0O 
E8E0 
9CFS5 
8751 


A811 
BAD] 
2985 
8F80 
EBEO 
8385 


C800 
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8052 
0054 
O7FE 
OFF2 


8FOO 
AOEO 
304] 
9CF5 
A80] 
ABBO 
3b08 
0287 
ASTE 
O9FD 
883 
300] 
DBCS 
_8FBO 
AOEO 
8385 


8FOO 
C180 
1C09 
9F00 
1C05 
0004 
9900 
0882 
OFFD 
0005 
7776 
8F8O 
C180 
8385 


8FOO 
C88Cc 
C800 
C380 
C570 
CFOO 
C806 
CFOQ 
C846 
CFOO 


FBCO 
D380 
OF 80 
Llek 
1123 
lize 
110A 
BFEO 
C88C 
83C6 


OBA3 
1135 


1135 


4135 


LOFE 
OB7E 


1135 


1186 


0001 
1132 


1135 


0000 


0000 


1135 


1135 
1100 
UB7E 
FF80 
LLOA 


L122 
0001 
1123 


0003 
0000 


1135 


0002 


CLA TEST (SAF) 


BIOT >NI : 
LN $B7+<ERROR ERROE; T/O0 wAS NakreD 
Nl RSTR  <SAV1s=Z"0008" 
JMP $B4 
* 
RSESSSSSSSRSSSSSSSTMSSS SSSA SARS S SH SASSSSSI SSS SAS TNS ele2rsssee ssses sSsessesas 
* 
* SET UP LCT FOR CHANNEL SPECIFIED IN R3 
* : 
* LNJ $65 e<SETLCT 
* DC TABLE 
* p 
SETLCT SAVE <SAVIosZEBEO? RleR29K49829B) 
LOB $B819+$85 GET ADDRESS OF TABLE 
CL =$R1 
* 
LCT4A LOR $R2e$S81 eR] . GET BYTE TO OUTPUT 
INC =$R1 
BNEZ $R29>L CTSA BRANCH IF NOT AT END OF TABLE 
RSTR <SAVIe=Z*ESEQ? 
JMP $B5 RETURN 
* 
LCT5A LDR $R49<FOBL FUNCTION CODE FOROYT LCT BYTE 
LNJ $B4e<CGSCH FORM 1U GONTRUL WORD 
LCT3A JO SSR¢ ge TEKS OUTPUT BYTE 
BIOF >LCT3A CHECK JF TAKEN 
B m>LCT4A GET NEAT BYTE 
* 
Hos sessoasesssesese ee ssereseesassc eres essetasssssssestecsessersessssssss 
% 
* FIND FIRST ACTIVE LINE 
* 
* SR3Z"START CHECK. ON THIS LINE AND 
* CYCLE THROUGH ALL LINES IF 
i” UNE FOUND ON LINE NUMBER IS HERE 
* 
* LNJ $B5e<FLN 
* DC OF LINE TYPE TO SEARCH FOR 
# <RETURN> IF NO LINES ON 
* <RETURN> 
* 
FUN SAVE <SAV192Z*A0E0? SAVE REGe $R20$8295B1 
SOR $R391 
LDB $B1s+3B5 
LDR $R2eSB1 PUT LINE TYPE INTO $R2 
LAB $B2e<ATLT ADDRESS OF ACTIVE LINE TABLE 
FLN2 CMY $R39=8 SEE IF AT BOTTOM OF TABLE 
BOE >FLN3- 
CMR SR29SB2e4+4R3 SEE IF INDEX VINE ON 
BNE >FLN2 
DEC =SR3 SET $R3 BACK TO VALUE FOUND 
SOL $K3 01 
LAB $B59$B5e1 INCREMENT TO VALID RETURN 
FLN3B RSTR SSAVI os =Z*AQEOF RESTORE KEGs 
JMP $B5 JUMP OUT OF RUUTINE 
* 
RSSSSSSSSKSSSSSESFRSSST SASS SSS HS AS TSK SSS SETS Sess ssr Ss erseersesssesessserszsese 
* 
* TIME DELAY 
* 
* LNJ $S$B5e<TDLAY 
® 
TOLAY SAVE SSAV1L9=Z9*C1808 SAVE REGe $R19S5R7 
TDLA LOV $R1959 LOAD CLOCK INITIAL COUNT 
x OTR S$R1e<ZHRTCC | 
LDV SRL ee5 : 
RTCN TURN ON REAL TIME CLOCK 
X TOLAL CMR SRL e<ZHRTCC 
BAGE >TDLA3 
B >TDLAL 
TOLA3Z RTCF TURN OFF REAL TIME CLOCK 
BDEC SR7e>TOLA 
RSTR <SAV1o=Z'*C180! RESTORE SRI 
JMP $B5 
* 
WSSSSTCASSSSSRTSSASSSS SSS SS HS Sr sss sess essenkssessssssssereret 
* ; 
’ * READ LCT 
* 
* LNJ $66e<RDLCT 
* oC <ADDRESS> 
* DC <RANGE IN BYTES> 
n . 
RDLCT SAVE <SAVLle=Z*Cuscer SAVE REGS. 
LOR $R49<FIR LOAD DUMMY I/y 
LNJ $64 9<CGSCH PUT PROPER CHANNEL IN 
AND $R4eeZ*FFRO! 
STR SR4 9 <CHNZ STORE CHANNEL NUMBER FOR CALL 
LOR $R49S66 STORE ADDRESS IN ZysMLR CALL 
STR $R49<KRLCTAD 
LDR $K4 $6601 STORE KANGE FUR ZV$MLR 
STR $R49<RLCTRG 
CALL ZVSMLRoALCTV oa RLCTRGeRLCTAD s CHNZ 
Xx 
RSTR <SAV] o=2'*C88C8 
JMP $B602 
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OOFF 
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OOFF 


0003 
0000 
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* 
RSRSSSSHSSSHRSSSSASTSASATSSSSS SSS TSS HBS SS SSS SRT S SS SSE S Pes sesessssSssssassresss 
* 
* CHANGE SUBCHANNEL 
% 
* $R3 =-COUNTAINS SUBCHANNEL WANTED 
* $R4& =CONTAINS [70 CONTROL WORD TO BE CHANGED 
* F 
* LNJ $84+<CGSCH 
% 
% 
CGSCH SOL $R3 96 SHIFT TO SUBCHANNEL POSITION 
OR $R4 9 z$RS OR SUBCHANNEL NUMBER JNTU CONTROL WORD 
SOR $R396 SHIFT 10 NORMAL POSITION 
aMP $64 GO BACK 
* 
WESSSSSSRSTHSRASTSHESSSHSSSSSASSSSSSSSRHSTHASSH TERRES SS i sssssSSessrssesssssss 
* 
* CCB FORMATION, 
* 
* $R3 = CONTAINS SUBCHANNEL WANTED 
* $R4& = CONTAINS RANGE (NUMBER OF BYTES) 
* 
~ LNJ $B5 9<MCCB 
* OC CPU ADDRESS 
* vc RAM ADDRESS NUMBER OR CHANNEL CONTROL WORDe 
* 
MCCB SAVE <SAVLe=Zt*FUF8? SAVES $61 0$B3 6$629SB4eSR1 oSK9eSR4eRZ256 SRI 
LDV $R79z126 
LOB $B2e+$B5 LOAD $62 WITH CPU ADDRESS 
LOR $R29S85 PUT RAM ADDRESS IN g§R2 
LOR $R5 9=S$R4 
LOR $R4_9<FOLD LOAD $K4 WITH I/O CONTROL WORD 
LNJ $B84—.<CGSCH 
MCB5 BEZ $RT7»<MCER ; 
TOLD $B2 eFSRG9SSR5 OUTPUT AVDRESS AND RANGE 
DEC . =$R7 
BIOF >MCB5 
LDR $R4o<FOCB LOAD $K4& WITH 1/0 CONTROL WORD 
LNJ $84e<CGSCH PUT I/70 CONTRUL WORD IN $R4 
MCB2 TO FSR] 92S5R4 OUTPUT DLCC RAM ADDRESS 
BIOF >MCB2 
is) >MCB6 
MCER LNJ $87 4<ERROR TOLD HAS BEEN NAK*ED 
MCB6 RSTR <SAVIL e=2'*FDF8* RESTORE REGS. 
JMP $B5e0l 
* 
KeSSeCST PSST SIO SS RSSSSSSSrHSSTSSSSSH SHA SRS SSS asses SSS SS ee se HSSSSSSTSSssrsrsss 
% 
* ERROR PRINT ROUTINE 
* 
* 
ERROR SAVE K<SAVG esZtFFFF?E SAVE REGISTERS 
LEF <ERMG¢ 1 oBX* FE? 
SOR $R3e1 SHIFT 10 GET KLINE NUMBER 
ADV SR3v=X*308 CHANGE NUMBER INTO ascll 
OR $R39<ERMG+] 
STR $R39<ERMGe1 STORE LINE NUMBER 
LDV SRI vz—16 INTIALIZ& LOOP COUNTER 
CL =$R3 CLEAR INDEX 
LAB $86 9$87 el SAF DECREMENT $87 
ST8 $B869<ERR1+4+SAF STORE ERROR AWDRESS FOR ERROR CALL 
ERR] CALL ZVSER oS eERMG 
LAB $B6e<CRLF PUT CReL INTO CALL 
LAB $B4e<SPACE 
LAB $B2 e<ERR3444¢2K SAF 
ER11 STB $686,562 
CMZ <ERF CHECK FLAG FORK SHORT REPORT 
BE <ERRS 
ERR2 LAB $B39<SAV4SeS$R3 FECTH AND STORE REGISTER 
LAB $B1 »<ERR3+44SAF 
ERR21 STB $63 4$6) 
ERR3 CALL ZVSTHZ S95 
ERR34 INC #$R3 BUMP INDEX 
STB $84 9$62 
CMV SRI VSTRSAF C1 SEE IF CRLF NEEDED 
BNE >ERR4 | 
LAB $66 9<CRLF 
STB $66 $62 PUT CReLF INTU CALL 
ERR& BINC  $R1s<ERRZ DO NEXT “REGISTER 
HLT HALT AFTER ERROR. 
ERRS5 RSTR <SAV4S,=Z°FFFFO RESTORE. REGISTERS 
JMP $67 RETURN 
SAFF NULL 
* 4 
RSSTSSSHSSTTITSTSSSTSSSSTSST OS SSSSSSKSESASFHSTSSSFSKSSH SO SSSSSS SESS SSSSSSTSTS 
. 
END UF PASS CHECK 
* : 
EDPCK. CL <STOP 
CmMzZ <ZVSTTY. 
Be <STOP 
CALL ZVS$TCoMESGB 


TITLE DCMC2> "REV At 


002479 
002480 
002481 
002482 
002483 
002484 
002485 
002486 
002487 
002488 
002489 
002490 
002493 
002494 
002495 
002498 
002499 
002500 
002501 
002502 
002503 
002504 
002505 
002506 
002507 
002508 
002509 
002512 
002513 


002514 


002517 
002518 
002519 
002520 
002521 
002522 
002523 
002524 
002525 
002526 
002527 
002528 
002529 
002530 
002531 
002534 
002535 
002536 
002539 
002540 
002543 
002544 
002547 
002548 
002549 
002552 
002553 
. 002554 
002555 
002558 
002559 
002560 
002563 
002564 
002565 
002566 
002569 
002570 
002571 
002572 
002573 
002576 
002577 
002580 
002581 
002582 
002583 
002584 
002587 
002588 
00259] 
002592 
002595 
002596 
002599 
002600 
002603 
002604 
002605 
002608 
002609 
002612 
002613 
002614 
002615 
002616 
002617 
002618 
00262] 
002622 
002623 
002624 
002625 
002626 
002627 
002630 
002631 
002634 
002635 
002636 
002637 


OBEB 
-OBEC 
OBED 


OBEE 
OBEF 


OBFO 
OBF1 


OBF2 


OBF3 
OBF4 


OBFS 
OBFO6 


OBF7 


OBFs 
OBF9 


OBFA 
OBFB 


OBFC 
OBFD 


OBFE 
__OBEF 


0Cc00 
0col 


0co2 
0c03 


0C04 


0C05 
0C06 


OCO7 
0C08 


0co9 
OCOA 


OCObB 
ocac 


OCOD 
OCOE 


OCOF 
0C10 
Ocll 


OCla 
OC13 


0614 


0C15 
OCl6 


0C17 
0C18 


0C19 © 


OCIA 
OC1bB 


OF 80 
1333 
8382 


OBEE 
D614 
‘6030 


28BD 
3100 


0100 
OBF3 


OOF 
BD30 


30BD 
3100 


0100 
OBF8 


0200 
Dols 
BD30 


30BD 
3060 


D614 
BD30 


28BD 
23100 


“D6IC 
5027 
0215 


3ABD 
3060 


BD31 


008D 
3060 


9618 
1097 


4196 
4127 


OED6 
14C4 


FOBD 
3028 


D614 
6D30 
2820 
0235 


EOBD 
3100 


BD30 


606D 
3100 


— O23E 
BD30 
6086 
FF1O 
974] 


9641 


CLA TEST (SAF) 


PAGE 26 


ae 
JMP $62 


* 

* “VCTVH@VATVN@VNOVETVL @VPVR=VO"VG"VKEVATYMmVS 
* 

* 

* 

7 | 

* SET TEST MODE ON CLA FOR SECOND LINE OF CLA 

* 

* ORG X*z008 

CHLP EQU $ 

* 4D 20 

* OUT 2 

* WAIT 

* NOP 

* . 

+ SET CURKENT LOOP ADAPTER TO FASTEST SPEED 

* 

* ORG x#2008 

CHLPS EQU $ 

# LD aXtpe 

* OUT 4 

x WALT 

* NOP 

* 

* 

* CHANNEL PROGRAM FOR LUOP AT LINE ADAPT (REC) 
* 

‘% 

* ORG x*2008 

CHLP1 EQU $ 

* Loc HLPL 

HLP1 EQU X*02008 ae 
* LD 24 GET LINE SPEKD (ASYNC) OR SYNC CHAR (SYNC) 
# OUT & OUTPUT IT 

We RECV Oo DUMMY REC. FUR CURRENT LOOP ADAPT 
* ra) 20 GET LINE CONTROL 

* OUT 2. OUTPUT IT 

* WAIT 

* LO  ~——s28 LOAD DYNCs FLAG IF ZERO LINE IS ASYNGs 
« B2T GETC 

x Loc TRNX 

TRNX EQU X#02158 | 

* RECV 0 INPUT 1ST SYNC 

* WAIT 

t RECV 0 “INPUT SECOND SYNC 

*- C 24 

* BET INSY 

* Lv 20 

* AND =XFDe 

* OUT 2 

* LD 20. 

% QUT 2 

x 8 TRNX 

* LOC INSY 

INSY EQU X#02358 

* WAIT 

x RECV 0 INPUT FINAL SYNC. 

* WAIT 

r Loc CKST 

CKST EQU X*0Z3E9 | 

* RECV 0 INPUT FIRST CHARe 

a C =XOFFS SEE IF START OF DATA OR SYNC, 
* BET GETC1 


TITLE DCMC2, 


002640 
00264) 
002642 
002643 
002644 
002647 
002648 
002649 
002650 
002653 
002654 
002655 
002656 
002657 
002658 
002661 
002662 
002663 
002664 
002665 
002666 
002669 
002670 
002671 
O02o7e 
002673 
002674 
002677 
002678 
002679 
002680 
002681 
002684 
002685 


— 002686 


002687 
002690 
002691 
002694 


002695. 


002696 
002697 
002698 
002699 
002700 
002703 
002704 
002705 
002706 
002707 
002708 
002709 
002710 
002711 
002712 
002713 
002714 
002715 
002718 

002719 
002720 
002723 
002724 
002727 
002728 
002731 
002732 
002733 
002734 
002735 
002738 
002739 
002742 
002743 
002746 
002747 
002748 
002749 
002752 
002753 
002756 
002757 
002758 
002761 
002762 
002765 


002766. 


002767 
002768 
002771 


002772. 


002773 
002774 
002777 
002778 
002779 
002780 
002781 
002782 
002783 
002786 
002787 
002790 
002791 
002792 
002793 
002794 
002795 
002796 
002797 
002798 
002799 
002802 


Oc1ic 
OC1b 
OCLE 


OCIF 
0C20 


Oc2] 


OC2e 
0C23 


OC24 
0C25 


O0C26 


0C27 
oc28 
0c29 


OC2A. 


0C28 


OCcac 


OC2D 
OC2E 


OC2F 


0C30 
0c31 


0C32 


0C33 


0C34 
0C35 
0C36 


0C37 
0C38 


0C39 
OC3A 


OC36 
0C3C 


0C3D 


OC3E 
OC3F 
0C40 
0C4] 
0C42 
0C43 


0C44 
0C45 


0C46 


OC47 
0C48 


0C49 
OC4A 


0C4B8 


oc4e 
OC4D 


OC4E 


PREV At 


270F 
BD3) 
0020 
O2SF 


EFBD 
3060 


8030 


CODE 
6327 


0259 


058) 
3100 


20F1 
O25E 
9665 
8520 
2605 
BD31 


2020 


0269 


E6C6 


QOBD 
3028 


8031 


206D 
3100 


cO8A 


0100 
0C34 


0400 
D602 
Bb30 
38C6 


AABD 
3030 


BD31 
0006 


1C5D 
271F 


C606 
0414 
O73F 
D618 
BD30 
4006 
3F5A 
3D27 


O5BD 
3100 


20EE 
0426 
BD31 
00cé 


FFBD 
3040 


6D31 
0431 


OOBD 
30A0 


BD30 


CLA TEST (SAF) 


* WALT 

* 8 CKST 
* LOC  GETC 
GETC EQU X"O024F8 

* RECV Oo 

x ST» — STURE 
* BLCT HLPIA 


* LOC GETCL 
GETC] EQU X'02598 
bal WAIT 


* B GETC 
% LOC HLPLA 
HLPLA EQU X#*025E8 

* BLBT GETX 
* GNB 

* 8 GETC 
* LOC GETX 
GETX EQU X#0269° 

* LO =0 

* OUT 2 

# GNB 

* WAIT 

* 8 HLPL 
* NOP 

* 

* 

% 

* 

% 

* ORG X*4008 


CHLP1A EQU $ 


* LOC LPIA 
LP1A EQU X#04008 

*® LOD 2 

* QUT 6 

% LO mXPAAP 
% OUT 4 

* WAIT 

* LD 28 

# BZT LPLABD 
* LD s6 

* LOC XMSY 
XMSY EQU X#041]14! 

* ST 63 

# LD 24 

* -SEND ¢) 

* 40 63 

% DEC 

* BZT SDSY 

* WAIT 

x a: XMSY 
* Loc SDSY 
SDSY EQU X*0426°. 

* WAIT 

* LO aX*FFe 
* SEND 0 

* WAIT 

* Loc LPLABD 
LPLABD EQU X#043)]8 

* LO» GET 

# SEND 0 


* BLCT LPIAB 
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INPUT CHARACTER 


INTO VATA BUFFER 


TURN OFF REC. 


CHANNEL PROGRAM FOR LOOP AT LINE ADAPT (XMIT) 


GET LINE CONFIGURATION 


OUTPUI. 1] 
LOAD FILL CHAR. 


OUTPUT. SYNC. FILL CHARe 


LOAD SYNC. FLAG 


IF ZERO BRANCH TO QUTPUT CHAR» 


LOAD SYNC. CHAR 
SEND IT 


“DO SIX. TIMES 


CHARACTER FROM DATA BUFFER 


OUTPUT IT 


TITLE: DCMC2s 


002803. OC4F 
002804 o0c50 
002807 
002808 
002809 
002810 OoCc51 
002611 0C52 
002812. 
002815 0c53 
002816 
002817 
002818 
002819 0C54 
002820 
002821 0C55 
002824 
002825 0C56 
002828 0C57 
002829 
002830 0C58 
002831 0C59 
002834 OC5A 
002835 
002836 0C5B 
002837 
002838 O0C5C 
002841 
002842 
002843. 
002844 OCc5D 
002845 OC5E 
002846 
002847 OC5F 
002848 
002849 0C60 
002852 
002853 0Cé6l 
002854 
002855 
002856 
002857 
002858 
002859 
0028660 
002861 
002864 0Cé62 
002865 
002866 0C63 
002869 
002870 0C64 
002873 
002874 0C65 


002877 O0C66 


002878 
002679 0C67 
002882. 
002883 0c68 
002884 0C69 
002885. 
002886 
002885 OC6A 
002890 
002893 0C6B 
002894 0Cé6eCc 
002895 
002896 O0ceD 
002897 0C6E 
002900 
00290) 
002902 
002903. OCeF 
002906 0C70 
002907 
002908 OCT] 
002909 
002910 oc72 
002913 0Cc73 
002914. 
002917 OCT 
002918 OC7> 
002919 
002920 UCT 
002921 O0C77 
002924 
002925 O0C78 
002928 
002929 0C79 
002932 
002933 OC7A 
002936 0C7B 
002937 
002940 oc7c 
002941 
002942 0C7D 
002945 
002946 OC7E 
002949 
002950 
002951 
002952 OC7F 
002953 0C80 
002954 
002955 0c8l 
002958 
002959 
002960 


002961 0C82. 


002962 0C83 
002963 - 
002964 UC84 
002967 © 
002968 0C85 
002971 O0C86 


"REV At 


40DE 
6327 


043B 


0560 
3100 


20F1 
0440 
BD31 
00C6 


FFBO 
3040 


9665 


8520 
2605 


6031 
2020 
0453 


E8BD 
3120 


bb31 
0020 


A501 


0ce2 
pels 
BD30 


3006 


148D 
3028 


BD30 
6080 


3100 


D618 


860E 
1097 


4196 
4127 


0216 


386D 
3060 


bD31 


o0BD 
3060 


9618 
1097 


4196 
4127 


OED6 
14C4 


FOBD 
3028 


D614 
Bb30 
2820 
02368 


EOBD 
3100 


6030 
0241 


60BD | 


3100 
BD30 


6086 
FF10 


CLA TEST (SAF) 


* LOC —LPLAA 
LPLAA. EQU. X9043B! 
# WAIT 


* 8 LPLABD 
# LOC = LP1AB 
LPLAB .EQU X#0440' 

e WAIT 

* LD eXtFFe 
# SEND 0 

* BLBT  LPIACL 
* GNB 

* 8 LPLAA 
* LOC — LPAAC] 
LPLAC] EQU X*0453¢ 

x GNB 

™ WAIT 

* 8 LPIA 
* NOP 

* 

* . 

% 

* 

* 

” ORG. X*200° 
CHLP2 EQU $ 

* LO 24 

*# + OUT 4 

* LD 20 

* OUT 2 

* RECV 0 

* WAIT 

* 
* LO 24 

* C BXIES 
x BET RCVA 
* LOC JHUO 
JHQQ EGU X10Z18° 

* RECV 0 

* WAIT 

* RECV 0 

* Cc 24 

* BET JFuQ 

x LD 20 

* AND =X*FD* 
* OUT 2 

* LD. 20 

x QUT 2 

* Bo JHUO 

* LOC JFQO 
JFGQ EQU x#023B 

x WAIT 

* RECV O 

* LOC NSTR 
NSTR EQU Xt0¢41" 

* WAIT 

* RECV Oo | 
* C sXOFFS 
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RECEIVE PROGRAM FOR CRC AND PARITY 


GET LINE SPEED (ASYNC) UR SYNC CHAR (SYNC) 
OUTPUI IT 

LOAD LINE CONTROL 

OUTPUI IT 


SEE Tt 2YNCs LINE. 


IF SYNCe SET UP To RECVe 


4 OR 5 SYNC. CHAR, 
RECEIVE FIRST SYNC CHARe 


RECEIVE SECOND SYNC, 


CHECK TO SEE IF TRUE SYNCe 


SHUT OFF LING 


SHUT LINE BACK ON 


RECEIVE THIRD SYNC, 


RECEIVE SYNCe OR START OF DATA CHARe (FF) 


Ww 


Tein ita ncaa ed it Oa tl 


TITLE DCMC2s 


00297 
002973 
002974 
002977 
002978 
002979 
002980 
002981 
002982 
002983 
002984 
002987 
002988 
00299) 
002992 
002993 
002994 
002997 
002998 
00300] 


003002. 


003003 
003004 
003005 
003006 
003009 
003010 
003011 
003012 
003015 
003016 
003017 
003018 
003019 
003020 
003023 
003024 
003025 
003026 
003029 
003030 
003031 
003032 
003033 
003034 
003035 
003038 
003039 
003040 
003041 
003042 
003045 
003046 
003047 
003048 
003049 
003052 
003053 
003054 


0C87 


0C88 
0C89 


OCBA 


0C86 
OCc8Cc 
OC8b 
OCBE 


OC8F 
0C90 


OC91 
OC9¢ 


0C93 
0C94 


0C95 
0C96 


OC97 


OC98 
0Cc99g9 


OC9A 
0C9B 


ocgc 


oCcg9D 


OC9E 


OC9OF 


OCAO 
UCAlL 


UCAg 


OCA3 


- 003059... 


003056 
003057 
003060 
003061 
003062 
003063 
003064 
003065 
003066 
003069 
003070 
003071 
003074 
003075 
003076 
003077 
003076 
003079 
003082 
003083 
003084 
003087 
003088 
003089 
003090 
003091 
003092 
003093 
003096 
003097 
003098 
003099 
003100 
00310) 
003102 
003103 
003104 
003105 
003108 
003109 
003110 


003113. 


003114 
003117 
003116 
003121 
003122 
003123 
003124 
003125 
003126 
003129 
003330 


OCA4 
OCAS 


OCA6 


OCAT 
OCAB 


OCA9 
OCAA 


OCAB 


OCAC 
OCAD 


OCAE 
OCAF 


OCBO 


-OCB1 


OCBeé 


0cB3 
OCB4 
OCB5 


OCB6 
OCB7 


OCBs 


OCcB9 
OCBA 


"REV At 


974) 


9641 
26F1 


BD31 


0253 
00D6 
1786 
0110 
9741 


964] 
2718 


86FO 
1097 


4196 
4127 
0267 


1EBD 
3078 


BD30 


CODE 
6327 


236D 
3100 


20F1 


0276 
BD30 


68BD 
30CO 


DE63 
27s 


6031 
0020 


. 0285 


F1BD 
3070 


6030 


CODE 
6327 


O58D 
3100 


20F1 


0294 
C600 
BD30 


28BD 
3120 


6D31 
0020 
b201 


OCB3 
D602 
BD30 
38C6 


FABD 
3030 


Bb31 


0006 


1886 


CLA TEST (SAF) 


PAGE 29 


LOAD FLAG FOR TYPE OF RECVe 
IF TRUE TEST JUST CRC 


If TRUE TEST JUST 


TEST CRO AND PARITY 


INTO BUFFER 
BRANCH 1F LAST CHARACTER TRUE 


TEST CRC 
IN BUFFER 


TEST PARITY 


LOAD ZERO TO TURN. OFF 
RECEIVE 


XMIT PROGRAM FOR CRC AND PARITY TEST 


* BEF _NSTR 
w WAIT 

% 

* LOC RCVA 
RCVA EQU X*0253° 

* LO 23 

* ¢ =] 

* BET RECVI 
* C aX@Fue 
# BET RECV2 
* 

* LOC RECV3 
RECV3 EGU X*O0Z67t 

* RECV 3 

* OT + STURE 
* BLCT RCV 

* WAIT 

* B RECV3 
* 

‘. 

* LOC RECV1 
RECV1 EQU X*02768 

* RECV 1 

* ST» STURE 
* BLCT RCV 

* WAIT 

x B RECV] 
* 

* 

* LOC RECV2 
RECV2 EQU X90¢85!* 

# RECV 2 

* ST» 

% BLCT RCV 

% WAIT 

* b REGVe2 
* 

# 

% Loc RCV 
RCV EQU X#0294!8 

* LO #0 

% OUT 2 

GNB 

* WAIT 

% B RCVA 
* NOP 

* 

* 

* 

* 

* 

ey ORG X*400! 
CHLPZA EQU $ 

* LD 2 

* OUT 6 

* LD sKOFAS 
# OUT 4 

* WAIT 

* 

* LO 24 

* Cc 


zX0E? 


& 


GET LINE CONFIGURATION 
OUTPUT IT 

LOAD FILL CHARe 

OUTPUT SYNC. FILL CHARe 


SEE. IF SYNC. LINE 


IF SYNCe LINE SEND OUT FILL CHAR (LR 4) 


TITLE DCMC2> 


003133 
003134 
003135 
003136 
003139 
003140 
003143 
003144 
003145 
003146 
003149 
003152 
003153 
003154 
003155 
003158 
003159 
003162 
003163 
003166 
003167 
003170 

003171 
003172 
003173 
003176 
003177 
003178 
003179 
003180 
003183 
003184 
003185 
003186 
003187 
003188 
003191 
003192 
003193 
003196 
003197 
003198 
003199 
003200 

003201 
003202 
003205 
003206 
003209 
003210 
003211 
003212 
003213 
003216 
003217 
003220 
00322] 
003222 
003223 

. O03626_. 

003227 

003228 

003229 

003230 

003231 

003232 

003235 

003236 

003237 

003240 

003241 

003242 

003243, 

003244 

003247 

003248 

003249 

003250 

003253 

003252 

003253 

003254 

003257 

003258 

003259 

003262 

003263 

003264 

003265 

003268 

003269 

003270 

003271 

003272 

003273 

003274 

003275 

003278 

003279 

003280 

003283 

003284 

003285 

003286 

003287 

003290 

003291 

003292 

003293 

003294 

003295 

003296 

003299 


OCBB 
OCBC 


OCBD 
OCBE 


OCBF 
occo 
occ. 


occa 
0cc3 


0CC4 
Occ5 


OCCe 
OCCT 
occs 
occg 
OCCA 


OCcCcB 
occc 


occD 
OCCE 


OCCF 
0Ccbo 


OCD] 


OCd2 
0Cb3 


0CD4 
OCcDS 
0CD6 
0CD7 
OCD8 


OCcd9 


QCDA .. 


OCDB 


OcdC 
OCOD 


OCDE 
OCOF 


OCEO 
OCEL 


OCE2 
OCcE3 


OCE4S 


OCES 
OCE6 


OCE7 
OCE8 


OCE9 


OCEA 


UCcEB 
OCEC 


OCED 
OCEE 


OCEF 
OCFO 


OCF) 
OCFea 


OCF3 


PREV At 
0E10 
974) 


9641 
2724 


COFA 
BD30 
30C6 
O41F 
0607 
3FD6 


18BD 
3040 


D63F 
5A5D 
2705 
BD31 
0020 
0431 


EEBD 
3100 


COFF 
BD30 
40BD 
3100 
043¢ 
Dol? 


8601 
1097 


4196 
4127 


1886 
FO10 
974] 


9641 
a1le 


0450 
BD30 


AOBD 
3058 


DE63 
2723 


Boal 
0020 


O45F 


FIBD 
30A0 


BD30 


48DE 
6327 


14BD 
3100 


20F1 


O46E 
6D30 


AOBD 
3050 


DE63 
2705 


BD31 
0020 


047D 


F1BD 
3100 


COFF 


CLA TEST (SAF) 


* BET SNC1 
w LD SXOFAS 
*% OUT 4 

* LO =6 

* LOC XMVV 
XMVV EGU X*O41LF8 

% ST 63 

* LO 24 

* SEND 0 

* LD 63 

* DEC 

* BZT SDVV 
* WAIT 

% B XMVV 
* LOC SOVV 
SDVV EQU X#043]! 

+ ~ WAIT. 

* LO SXUFFS 
% SEND 0 

* WAIT 

* 

* LOC SNC] 
SNC] EQU X#043C8 

* LD 23 

* C sl 

* BET  CRCRC 
A SS 
x BET  CPPAR 
* LOC SNC3 
SNC3 EQU X#0450! 

e LD» 

* SEND 3 

*% BLCT LCb) 
% WAIT 

* B SNC3 
% 

x LOC = CPCRC 
CPCRC EQU X*045F! 

* LDy LOAD 
* SEND 1 

* BLCT LCBl 
% WAIT 

* B CPCRC 
* 

* LOC — CPPAR 
CPPAR EQU X*046E? 

i LDs LOAD 
# SEND 2 

* BLCT LCbl 
* WAIT 

* B CPPAR 
* 

* LOC LCbl 
L.CBl EGU X#047D8 

* WAIT 

* LO aXtPFFe 


PAGE 30 


AND 3 SYNCe (OR FILL) 


LOAD FILL CHAR» 


LOAD SYNC. CHAR 
SEND iT 


DO SIX TIMES 


XMIT START OF DATA CHARe (FF) 


LOAD FLAG FOR TYPE OF SEND INSTe 
IF TRUE TEST JUST CRC 


IF. TRUE TEST PARITY 


TEST BOTH CRO AND PaRiTY ON XMIT 


BRANCH UN LAST CHAR. 
DUE NEXT CHAR» 
CHAR. FROM DATA BUFFER 


XMIT CHARe AND CALCULATE CRC 
BRANCH ON LAST CHARs 


DUE NEXT CHARe 


CHAR, FROM. DATA BUFFER 
MIT CHARse WITH PARITY 


OUTPUT DUMMY CHAR, FOR SHIFT REG, 


PHL Ril el BR ETH eta ade Pal vos ceaeene vs create ees sees ee bailn meee atone Leese ete derwion aed wi 8 ALOT gg ed pu ccaalts ate tanta ceva stead ee oe cee coed She neue ba ee cet ab Peete DS re, 


TITLE DCMC2s *REV AP CLA TEST (SAF) PAGE 31 


003300 * SEND 0 


00330] OCF4 6D30 


; 003304 x BLBT NWT BRANCH ON LAsT BLOCK 
a 003305 OCF5 4096 | 

003306 UCFe 6585 

003307 UCFT 2026 


003310 * B SNQ] 
003311 OCF8 0220 

003314 * 

003315 * LOC NWT 
003316 048D NWT EQU X*048D¢8 
003317 x LO 20 
003318 OCFQ AFD6 

00332) * AND sX*FEP 
003322 OCFA 14C4 

003325 * OUT 2 


003326 OCFB FEBD 
003329 OCFC 3028 


003330 * — GNB 
003331 OCFD 68031 
003332 * WAIT 


003333 OCFE 208D 

003334 OCFF 3100 

003335 * 8 SNGL 
003338 ObD00 20A0 
003339 

003340 

003341 

003342 

003343 

003344 

003345 

003346 0001 0100 
003347 op02 CHLP3 EQU $ 

003348 * Loc = RCP3 

003349 0200 RCP3 EQU X*0200" 

003350 * = LD 24 GET LINE SPEED (ASYNC) UR SYNC CHAR (SYNC) 
003353 O02 bbls 

003354 x OUT 4 OUTPUT IT 

003355 0D03 6D30 

003358 * LD 20 

003359 0004 3006 

003362 a. OUT 2 OUTPUT LINE CONTROL 

003363 O0D05 14BD 

003366 0D06 3028 

003367 * RECV 0 

003368 0D07 6D30 

003371 * WALT 

003372 O0D08 608D 

003373 O0D09 3100 

003374 * 

_ 003375 * LD 24 SEE IF SYNC TO RECVe 

i 003378 ODOA Dols 


RECEITVt PROGRAM FOR CHARACTER SIZE TEST 


nee K Ke 


ORG x*<0o? 


003379 * C XE? 
¢ 003382 O08 860E 
Mee 003383 OD0C 1097 
003384 * BET RCCH 
003385 Ob0D 4196 
003386 OD0E 4127 


. 903389 *_ JLQC _.. JHYY 
003390 02168 JHYY EGU X*021B8 
00339) # RECV 0 INPUT FIRST SYNC. 


003392 ODOF 3EBD 
003395 OD10 3060 


003396 * WAIT 

003397 ODl11 68b31 

003398 * LD 24 

003399 OD12 0006 

003402 * AND 28 

003403 OD13 1804 

003406 # ST 59 

003407 Ob14 1C07 

003410 * RECV Q INPUT StCOND SYNC, 


003411 OD15 388D 

003414 OD1l6 3060 

003415 * C 59 CHECK TO SEE IF TRUE SYNC. 
003418 0D17 9638 
003419 0018 1097 

003420 * BET  JFYY 

003421 0D19 4196 

003422 ODLA 4127 : 

003425 * Lo 20. SHUT OFF LINE 


003426 Ob16 OED6 
003429 * AND sXtFDe 
003430 ODIC 14C4 


003433 # OUT 2 
003434 O0D1D FOBD ; 
003437 OD1E 3028 


003438 i Lo 20 SHUT LINE BACK ON 
003441 ODIF 0d614 

003442 * OUT 2 

003443 O0D20 8D30 

003446 * B JHYY 

003447 0021 2820 

003450 # Loc JFYY 

003451 024] JFYY EQU X#024]9. 

003452 % WAIT 


003453 OD22 DABD 
003454 0023 3100 


003455 RECV oO INPUT THIRD SYNCe 
003456 0D24 6D30 
003459 * LOC  —- RCKSY 
| 003460 0247 RCKSY EQU X*0247" 
ben a! 003461 * WALT 


003462 0025 608D 
003463 Ob26 3100 


003464 % RECV 0 
003465 0027 BD30 


003468 i C sXelFe SEE IF START OF DATA CHARACTER 
003469 0028 6086 

003472 OD29 1F10 

003473 OD2A 9741 

003474. # BEF RCKSY. 


TITLE DCMC2» "REV AS CLA TEST (SAF) PAGE. 32 


003475 0D2B 9641 
003478 Op2C 26Fi 


003479 * WAIT - 
003480. OD2D 603) | | _, 
003481 a LOC RCCH \e ow 
003482. 0259 RCCH. EQU x"02591 | | | ed 
003483 i, * Lo 2 CHECK. FOR FIVE BIT CHARe 

003484 ODZE 0006 


003487 *# = BZT — NPRY 
003488 OD2F 0z5D: aa 
003491 0D30 270F 


003492 * 

003493, * — RECVe CHAR WITH PARITY 6-7 BIT CHARe 
003494. * | 

003495 * LOC = PRYT 

003496 O25E PRYT EGU .X'025E° 

003497 * RECV 2 


003498 0031 BD30 


003501. * ST 

003502 0032 70BD 

003503. 0033. 30C0 

003504 * BLCT  SHFL 
003505. 0034. DE63 

003508 0D35 2714 


003509 * WALT 
003510. 0036 6031 

003511 * 8 PRYT 
003512. 0D37 0020 

003515 * ) 
003516 * — - RECVe FIVE BIT CHAR. NO PARITY | 
003517. * 

003518 * LOC  ——-NPRY 
003519 0260 NPRY EQU X*O026D° 
003520 * RECV 0 
003521 0b38 F1BD 

003524 0039 3060 

003525. * ST 

003526 OD3A BD30 

003527 * BLCT  SHFL 


003528 O0D3B CODE 
003529 OD3C 6327 
003532 * WALT 

003533 0D3D 0580 
003534 OD3E 3100 
003535 * B NPRY 
003538 Ob3F 20F1 
003539 
003540 
003541 
003542 
003543 O27¢ 
003544. 
003547 0D40 C600 | 
003548 * OUT ; 
003549 0D41 6030 ? rae, 
003552 * GNB | 
003553 O0b42 2880 | 
003554 0b43 3120 
003555 | * WAIT 
0035560044 BD31 | 
003557 | * JUMP = RCP3 
003958 0045 003F 

003561 Ob46 FFT76 DC RCP3ex*028A" 
003562 | NOP 
003563 
003564 
003565 
003566 
003567 , 
003568 0047 0100 
003569 0048 CHLP3A EQU S$ 
003570 * LD 
003573 0D48 D602 
003574 
003575 0049 BD30 
003578 * LO sKtFAS LOAD FILL CHAR» 
003579 Ob4A 386 
003582. * OUT OUTPUT SYNC. FILL CHARe 
003583 0D4B FABD 
003586 O0D4C 3030 
003587 * WAIT 
003586 UD4D Bb31 | 
003589 * LD zX0LF9 LOAD VEFAULT MASK TO STRIP 5 BITS 
003590 Ob4E 00C6 
003593 rt ST 27 
003594 Ob4F 1FD7 
003597 * ST 28 
003598 0D50 1807 7 
003601 * LD EXOFAN LOAD FILL CHAR. 
003602 O051 i1CCé6 ; 
003605 * vuT 4 OUTPUI SYNC. CHAR, 
003606 O0b52 FABD 
003609 0053 3030 
003610 * LD 2 
003613 0054 D602 
003614 * BZT = XPYQ 
003615 0055 5027 
003618 
003619 
003620 
003621 
003622 0056 2686 
003625 0057 4010 
003626 0058 974) 
003627 | * BEF N61 
003628 0059 9641 | 
003631 OD5A 2609 


TURN OFF THE LINE 

LOC = SHFL 
HFL EQU XVOZ7CF 
LD =0 ey 


eC a a oe ae 


TRANSMIT PROGRAM. FOR. CHARACTER SIZE TEST 


* eK KK 


ORG  xX*4008 


2 GET LINE CONFIGURATION 


* 


OUT 6 OUTPUT IT 


‘SET MASK TO STRIP BITS FOR. SYNC. CHARe ON RECVe SIDE 


* wk RK 


Cc eXtGO! 


003032 ee Lb eXe3Fs 
003635 ObD5u C63F 

003636 © * ST 28 
003639 ObSC v7IC | is 

003640 * SR. 


00364] * gt 27 


TITLE DCMC2s 


003642 
003645 
003646 
003649 
003650 
00365] 
003652 
003655 
003656 
003657 
003658 
003661 
003662 
003665 
003666 
003669 
003670 
003671 
003672 
003675 
003676 
003679 
003680 
00368) 
003682 
003685 
003686 
003689 
003690 
003691 
003694 
003695 
003696 
003697 
003700 
00370] 
003704 
003705 
003706 
003707 
003708 
00371) 


003712. 


003715 
003716 
003717 
003718 
003721 
003722 
003725 
003726 
003729 
003730 
003733 
003734 
003735 
003736 
003739 
003740 
003741 
VO3T42 
003743 
003746 
003747 
003748 
003749 


003750 


003751 
003754 
003755 
003756 
003759 
003760 
003761 
003762 
003763 


003764 


003767 
003768 
003769 
003772 
003773 
003774 
003775 
003776 
003777 
003778 
003779 


003780 . 


003783 
003784 
003785 
003788 
003789 
003790 
003793 
003794 
003795 
003796 
003799 
003800 
003801 
003802 
003803 
003804 
003805 
003806 
003807 
003808 
003811 
003812 
003815 
003816 


Ob5D 
ODSE 


ODSF 
QD60 
Opel 


0062 
Ob63 


0064 
OD65 


0066 


OD67 


0D68 
0069 
OD6A 
OD68 


Ob6Cc 


OD6D 
OLDGE 


OD6F 
OD70 


Ob71 


ODTe 
OD73 


0074 


OD75 
ODT6 
OD77 
Ob7T& 
OD79 
ODTA 


OD76 
OD7C 


OD7D 
OO7E 


ODTF 
Ob80 


opel 
OD82 


0p83 
0D84 


0085 
OD86 


0087 
0088 


Ob89 
QD8A 


088 


OvBeC 
0080 


OD8E 
ODSF 


"REV A? 


5407 
1B20 
042F 
1986 
8010 
9741 


9641 
2609 


CO7F 
DTIC 


54D7 
1820 
0441 
07C6 
FFD? 
1054 
D71B 
0448 
D618 


860E 
1097 


4196 
4127 


1FC6 
0455 
0607 
3FD6 


186D 
3040 


D63F 


SA5D 
2705 


Bb3l 


0020 
0467 


EEBD 
3100 


ColF 
Bb30 


4080 
3100 


O472 
D602 
5027 


0477 


1160 
30A0 


D41B 
BD30 


50DE 
6327 


16B8D 
3100 


20EF 


0468 
BD30 
A0D4 


1 BBD 
3040 


CLA TEST (SAF) 


XPYQ 
NO] 


zX'gQre 


N7) 


eXt7Fe 


28 


27 
XPYQ 
, 

24 


sXtErt 
XMNS 


=6 
XMZZ 
’ 

63 
24 


0 
63 


9042 


XMLZ 
90422 


sXtiFe 


0 


XMNS 
’ 


2 
XNPY 


SEND DATA WITH PARITY 


XPY 


a7 
é 
EOXT 


XPY 


SEND DATA FIVE BIT NO PARITY 


XNPY 
 ] 


et 
0 


* 8 
* LOC 

NOL EQU X*042F8 
* 

tt BEF 

* Lb 

* ST 

* SR 

* ST 

* B 

* Loc 

N71 EQU X#0441¢ 
* . LD 

* ST 

* SR 

* ST 

* LOC 
XPYQ EQU Xt0448 
* LD 

* C 

* BET 

* LD 

# LOC 
XMZZ EQU X10455 
* ST 

* LD 

f SEND 

* LD 

* DEC 

* BZT 

x WALT 

* 8 

* LOC 
SDZZ EQU X*0467! 
* WALT 

* LD 

® SEND 

# WALT 

* LOC 
XMNS EQU X*0472 
* LD 

* BzT 

* 

* 

* 

* LOC 

XPY EQU X'0477! 
* LD 

# AND 

* SEND 

* BLCT 

t WAIT 

* r) 

%. 

wR 

* 

* LOC 
XNPY EQU X10488 
* AND 

* SEND 

* BLCT 


EDXT 


PAGE 33 


BRANCH ON ASYNCe LINE 


LOAD SYNC. CHAR 


SEND {T 


DO SIX TIMES 


XMIT START OF DATA CHARe 


TITLE DCMC2, 


003817 0090 
003820 0091 
003621 
003822 0092 
003823 
003824 0p93 
003827 
003828 
003829 
003830 
003831 
003832 
003833 0094 
003834 0095 
003835 
003838 0096 
003839 
(003840 0097 
003843 
003844 0Dd98 
003845 0b99 
003846 OD9A 
003849 
003850 o0v98 


003851 Ob9C 


003852 
003855 UD9D 
003856 
003857 
003858 
003859 
003660 OD9E 
003661 
003862 OD9F 
003863 ODAO 
003864 
003867 ODAI 
003868 
003869 
003870 
003871 
003872 
003873 
003874 
003875 
003876 ODA2 
003877 
003878 
003879 
003682. ObA3 
003883 
003886 ODA4 
003887 
003890 ODAS 
00369) 
0038692. ODA6 
003895 
003896 ODA7 
003899 
003900 ODA 
003903 ODAg 
003904 
003907 ODAA 
003908 
003909 ODAB 
003912. 
003913 ODvAC 
003916. ODAD 
003917 
003918 ODAE 
003919 
003920 
003921 
003922 
003923 
003924 ODAF 
003927 
003928 ODBO 
003931 ODBI 
003932 ObB2 
003933 
003934. ODB3 
603937 O0DB4 
003938 
003939 
003940 
003941 ODB5 
003944 
003945 0bD66 
003946 00B7 
003947 | 
003948 ODB8 
003951 
003952 0DB9 
003955 ODBA 
003956 OD66 
003957 
003958 ODBC 
003961 ODBD 
003962 7 
003965 ODBE 
003966 
003969  ODBF 
003970 
003971 ODbco 
003974 
003975 ObC) 
003978 
003979 ODC2 
003982 ODC3 
003983 | 
003986 ODC4 
003987 


*REV AS 
DE63 
2705 
BD31 
0020 


0499 


EFBD 
3100 


Dols 
BD30 
4096 
6585 
2026 


0560 
3100 


20C6 


O4AC 
BD3]1 


2080 
3100 


20E5 


0100 
ODA3 
C60A 
p71¢ 
0602 
BD30 
38D6 


LBBD. 
3030 
D614 
BD30 


28BD 
3060 


BD31 


0219 
00D6 
1886 
QE10 
9741 


964] 
2738 


0224 
BO30 


6080 
3100 


BD30 
6096 
1810 
9741 


9641 
270E 


D614 
C4FD 
6D30 
2806 


148D 
3028 


20E0 


CLA TEST 


(SAF) 


PAGE 34 


XMIT DUMMY CHARe TO SHIFT LAST DATA 


RECEIVE PROGRAM FOR OVERRUN. TEST 


* WAIT 

i B -  XNPY 
* 

* 

* 

LOC EDXT 
EDXT EQU X104991 
WALT 

* LD 27 

* SEND 0 
BLBT EOP 
i WALT 

8 XMNS 
. 2 

LOC EOP 
EOP EQU X*04acr 

GNB 

* WAIT 

* 8 EDXT 
% NOP 

* 

* 

* 

* 

* 

*% 

* ORG x" Z00" 
CHLP4 EQU $ 

* 

tt LD #10 
ST. 28 

* LO 2 

* QUT 6 

* Lo 24 
* OUT 4 

* LD 20 

* OUT 2 

* RECV O 

* WAIT 

* 

* 

% LOC BEG 
BEG EQU x?02199 

x LD 24 

* « aXIE? 
* BET RMCH 
* LOC JHRR 
JHRR EQU Xt0z248 

* RECV O 

x WAIT 

x RECV 0 

* C 24 
* BET JFRR 
* LO 20 

i AND = -=X*FDt 
x QUT 2 

x LD 20 

* QUT 2 

% B JHRR 
x Loc JFRR 


GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 
OUTPUI IT 


1ST SYNC. 


2ND SYNGe 
CHECK TO SEE IF TRUE SYNC. 


SHUT UFF LINE 


SHUT LINE BACK ON 


TITLE DCMC2s "REV At CLA TEST (SAF) PAGE 35 


003988 0244 JFRR EQU X*0244! 
003989 * WAIT 

003990 ODC5 BD3) 

003991 * RECV 0 3RD SYNGe 
003992 O00C6 dO0BD 

003995 ODC7 3060 

003996 * LOC NSCH 
003997 O24A NSCH EQU X*'024A% 
003998 . * WAIT 

003999 ObC8 6D31 

004000 * RECV 0 


004001 ODC9 O0BD 

004004 ODCA 3060 

004005 * C =XtFFS SEE. Ih START DATA CHARe 
004008 ObLCB 8é6FF 

004009 oObCcC 1097 

004010 * BEF NSCH © 
004011 ODCD 4196 

004012 ODCE 4126 

004015 * WAIT 

004016 ODCF F1BD 

004017 ODDO 3100 


004018 * LOC RMCH 
004019 O25C RMCH EQU X*025C# 
004020 * RECV 0 
004021 ObD1 68b30 

004024 * oT 


004025 ODb2 60B8D 
004026 0003 . 30C0 
004027 * BLCT REND 
004028 0004 DE63 
004031 0005 2705 


004032 * WAIT 

004033 ODD 603) 

004034 * 8 RMGH 
004035 0007 0020 

004038 * 

004039 * 

004040 x LOC = REND 
004041 0266 REND EQU X*0¢6B! 
004042 * LD EXtC5# 
004043 ODpbs FICé 

004046 x QUT 2 


004047 ObD9 C5BD 
004050 ODDA 3028 


004051 x GNB 
004052 ODDB BD31 
004053 | * WALT 


004054 ODDC 20860 
004055 ObDbD 3100 


004056 * rs) BEG 

as, 0046059 ODDE 20Al 

! 004060 # 

( 004061 % 

q 004062 * 

: 004063 % TRANSMIT PROGRAM FOR. UNDERRUN TEST 
004064 # 
004065 * 
004066 * ORG x2cor 
004067 QDDE CHLP4A_EQU $ 
004068 # Loc Tor 
004069 02C0 TOP EQU x#02C08 
004070 # WAIT 
004071 ODDF 68D31 
004072 . # LD 24 
004073 ODEO 0006 
004076 * C sX0E9 


004077 ODE1 1886 

004080 ODE2 OE10 

004081 ODE3 9741 

004082 * BET NSY 

004083 ODE4 9641 

004086 ODES 274A 2% 

004087 # LD =X AAt LOAD FILL CHARe. 


004090 ODE6 CAA 

004091 | #* OUT 4 

004092 O0E7 8D30 

004095 tt LD =6 

004096 ObE8 30C6 

004099 x LOC = XMRR 

004100 02D5 XMRR EQU X*02058 

004101 * sT 63 

004102 O0E9 06D7 

004105 * LD 24 LOAD SYNC. CHAR 
004106 ODEA 3FD6 

004109 * SEND 0 SEND IT 


004110 ODER 188D 
004113 ODEC 3040 


004114 * LD 63. DO SIX TIMES 
004117 ODEO D63F 7 

004118 * DEC 

004119 * BZT § SDKR 


004120 ODEE 5A5D 
004123 ODEF 2705 


004124 # WAIT 

004125 ODFO 6D31 

004126 | * B XMRR 
004127 ODF1 0020 

004130 an, LOC — SDRR 
004131 O2E7 | SDRR EQU X*02E7t 
004132 * WAIT 

004133 ODF2 EEBD : 

004134 ODF3 3100 

004135 7 * LD SXtF FS 
004138 ODF4 CéFF | 
004139 | * SEND 0 
004140 ODF5 B8D30 

004143 * WAIT 


004144 ODFe 40BD 
004145 ODF7 3100 
004146 * LD =2 
004149 ODFe Cedz 
004150 * ST 26 


TITLE. DCMC2e 


004153 
0046154 
004155 
004156 
004157 
004158 
004159 
0046162 
004163 
004166 
004167 


004168. 
004169. 
004172. 


004173 
004176 
~ 004177 
004178 
004179 
004180 


004183. 
004184 


004185 
004186 
004187 
004188 
004189 
004392 
004193 
004194 
004197 
004198 
00420) 
004202 
004203 
004204 
004207 
004206 
004209 
004210 
004211 
004212 
004213 
004214 
004215 
004218 
004219 


004222. 


004223 
004224 
004225 
004228 
004229 
004232 
004233 
004234 
004235 
004236 
004239 


004240 . 


00424] 
004242 
004243 
004246 
004247 
004248 
00425) 
004252 
004253 
004256 
004257 
004258 
004261 
004262 
004265 
004266 
004267 
004268 
004269 
004270 
004271 
004272 
004273 
004276 
004277 
004278 
004281 
004282 
004283 
004284 
004285 
004288 
004289 
004290 
004291 
004292 
004293 
004294 
004295 
004298 
004299 
004300 
004303 
004304 
004305 
004306 
004309 
004310 
004311 
004312 
0046315 
004316 
004317 


ODF9 


ODFA 


ODFB 
QDFC 


ODFD 


ODFE 


ODFF 
OE00 


0E0] 
0E02 


OE03 
QE04 
OE05 
0E06 
OE07 


OE08 
OE09 


OEOA 


OE0B 


OEOC 
OEOD 


OEQE 


OEOF 


OELO 
OEll 


QEL2. 


0613 


OE14 
OE15 
OE16 


0E17 
OE18 


0E19 
OELA 


OE1B 


OEIC 


OE1D 
ORIE 


OEIF 


0E20 
OE] 


OE2e 
OF23 


OE24 
OE25 


ORZ6 
OE27 


OEZ8 
OE29 
OE2A 


OE2B 
OE2C 


OE2D 


OEZE 


_ OE2F 


REV AS 


O71A 
02F6 
BD30 


AOBD 
3040 


Dela 


5AD7 


1A5D 
2705 


BD31 
0020 


0309 
EOBD 
3080 
2067 
BD30 
1407 


3CBD 
3100 


2028 


0318 
8030 


AOBD 
3040 


D6IC 


SADT? 


1C5D 
2705 


BO3) 
0020 


. 9328. 


EDBD 
3080 
2045 
BD30 
40BD 
3080 
203D 
BD30 
1407 


3CBD 
3100 


0340 
BD30 


AQBD 
3040 


DE63 
2705 


BD31 
0020 


O34F 


F1BD 
3100 


COFF 
BD30 
4096 
6585 
2026 


O6BD 
3100 


3FFF 


CLA TEST (SAF) PAGE. 36 
* LOC N27 
NZ7 EQU. X*02F6? 
ae LO. 

i SEND 0 
# LD 26 
* DEC: 
* ST 26 
* ezT COLY 
# WAIT 
. 8 N27 
* 
* 
* LOC COLY 
COLY EQU X'03098 
tt BS DLAY GO TO CHARe QELAY 
* IN 5 SEE IF UNDERRUN BIT SET 
x ST 60 
# WAIT 
* 8 NT3 
% 
* 
* LOC NSY 
NSY EQU X*0318° 
x LD 
* SEND 0 
+ LD 28 
* DEC 
* ST 28 
* B21 OVLY 
WAIT 
* B NSY 
* LOC OVLY 
OVLY. EQU.X!0326" 
* BS DLAY 
* SEND 0 
* BS OLAY 
* IN 5 
* ST 60 
x WAIT 
* LOC NT3 
NT3 EQU X103408 
* LO | 
* SEND 0 
# BLCT EXM) 
* WALT 
* B NTS 
* 
* 
* Loc EXM1 
EXML EGU X'034F¢ 
* WAIT 
* Lb SXOFFS 
_* SEND 0 
x BLBT NSXM 
% WAIT 
* JUMP TOP 
* 


* LOC NOXM 


TITLE DCMC2s *REV AP CLA TEST (SAF) PAGE 37 


004318 0363 NSXM EQU X*0363° 
004319 * GNB 
004320 O€30 SDBD 

004321 O&31 3120 


004322 * LD 20 
004325 O&32 b614 

004326 * AND aXtree 
004329 OF33 C4FE 

004330 * ST 20 
004333 O&34 0714 

004334 * OUT 2 
004335 0635 68D30 

0043368 bal WAIT 


004339 Obk36 28B8D 
004340 O&37 3100 ; 
00434] * 6 NSXM 


004344 0F38 20EF 

004345 * NOP 

004346 * 

004347 * LOC OLAY 
004348 0375 DLAY EQU X#0375°" 
004349 * LD 29 
004350 O0€39 0106 

004353 * ” BZF EDLY 


004354 OE3A 1050 
004357 OF3B 2604 
004358 * RET 
004359 OE3C DES52 
004360 OF3D 6E00 


00436) * LOC EDLY 
004362 O37E EDLY EQU X*037E* 
004363 * ST 30 
004366 OF3E O71E 

004367 * LD 294 
004370 O&3F CO5E 

00437] * LOC LESS 
004372 0382 LESS EQU Xt038e29 
004373 * DEC 

004374 * 62T NXC 


004375 0640 5A5D 
004378 O&41 2702 


004379 * 8 LESS 
004382 OE42 20FA 

004383 x LOC = NXC 
004384 0388 NXC EQU X#0388" 
004385 | * Lo 30 
004388 0643 DOLE 

004389 * DEC 

004390 * BZF EDLY 


004391 OF44 5A5D 
004394 OEF45 26F0 
004395 * RET 
004396 OF46 DES2 
004397 OF47 6E00 


004398 * NOP 

004399 * 

004400 * 

00440) * CHANNEL PROGRAM TQ LOOP AND CHECK DSC INTO DSS 
004402 * 

004403 * 

004404 * ORG = X# 2008 
004405 0648 0100 

004406 0E49 CHLP5 EQU $ 
004407 * LOC —s TOP1L 
004408 0200 TOP EQU X*Oz00F 
004409 * LD =7 
004412 0E49 C607 

004413 * ST 30 
004416 OE4A ODTIE 

004417 * LD 29 
004420 0&48 DélD 

00442) * C =XtFO! 


004424 OF&4C 86FO 
0044625 OF4D 1097 
004426 * BEF TOR3 
004427 OEE 4196 
004428 OF4F 4126 


00443) * LO =16 
004432 OF5O0 O08C6 

004435 * ST 58 
004436 0&5) 1007 ; 

004439 * LO 2 
004440 OF52 3ACE 

004443 # B TCMB1 
004444 QO€53 0220 

004447 # LOC TOP3 
004448 Q217 TOPS EQU K#0217' 
004449 * C =X?FC8 


004450 OEF54 OF86 
004453 O&55 FC1O 
004454 0656 9741 
004455 * BET TOP2 
004456 OEF57 964) 
004459 -0F58 2704 


004460 * LO =B 
004463 OE59 C608 

004464. . * ST 58 
004467 OE5A ODT73A 

004468 , ee LOC TOPZ 
004469 0224 TOP2 EQU X#02248 
004470 * 40 80 
004473. OEF5B C600 

004474. , % LOC TCMB1 
004475 0226 TCMB1 EQU X#0226° 
004476 *  $T 25 
004479. OESC 0719 

004480 * a © =4 


004483 O0E5D 8604 
004484 OE5E 1097 
004485 * BEF DSET 
004486 OESF 4196 : 
004487 O£60 4126. 


004490 * 0 #Xx"608 
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004491 O0F61 08C6 


004494 * OR 28 
004495 O62. 80DA 

004498 * ST 28 
004499. 0663 1CD7 

004502 # LD =4 
004503 0&64 1CC6 

004506 * LOC DSET 
004507 0239 DSET EQU X#0239" 
004508 x TLu O57 


004509 0&65 04DE 
004512 0£66 398D 
004513 O67 30E0 


004514 # OR 28 

004517 O£68 DAIC 

004518 * OUT 2 | 

004519 E69 BD30 _ 

004522 # CCH so TIME DELAY FOR CABLE TURN AROUND 


004523 OE6A 28BD 
004524 O0E6B 3160 


004525. * NOP 
004526 * NOP 
004527 OF6C 010) 

004528 * NOP 


004529 # CCH 
004530 Of£60 O18D : 
00453) O&6E 3160 


004532 * CCH. 
004533 OEF6F B6D31 
004534 * CCH 


004535 O&F70 60B8D 
004536 OE71 3160 


004537 # CCH 
004538 OEF72 6031 
004539 * IN 5. 


004540 O€73 60BD 
004543 O&74 3014 


004544 ; * oT 

004545 0&75 6030 

004546 * LD 29 
004547 OE76 COD6 

004550 * C 30 


004551 OE77 1996 

004554 O78 1€10 

004555 OE79 9741 

004556 * BET — ENDTC 
004557 OETA 9641 | 

004560 UE7B 2707 


004961 * XOR sXtrre 

004564 OE7C CB8FF ; 

004565 * DEC 

004566 * XOR =XtFFE 2 
004567 O&7D SACS iA | 
004570 * B TCMB1 | 
004571 OETE FF2O ee 
004574 * LOC ENDTC — 
004575 0260 ENOTC EQU X*026bd" 

004576 * GNB 


004577 OE7F 8B9BD 
004578 O&€BO. 3120 


004579 * WAIT 
004580 O0E81 BD3] 
00458] , # 8 TOP) 
004582 OF82 0020 
004585 * NOP 
004586 0683 8B0l 
004587 ° * 
004588 * CHANNEL PROGRAM FOR BROADBAND (RECV) 
004589 * ADAPTER READY TEST & UNDERRUN OVERRUN TEST 
004590 % 
004591 * ORG xez00e 
004592. OE84 CHLP6 EQU s 
004593 * LD 24 GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 
004596 OF84 d618 
004597 si OUT 4 OUTPUI IT 
004598 OF€85 68D30 
004601 # LO 20 
004602 CEB 3006 
004605 * OUT 2 
004606 O€87 14B8D 
004609 O0£88 3028 
004610 * WAIT 
004611 O&89 6031 
004612 * LOC SINK 
004613. 0200 SINK EQU XFOz0DF 
004614 * RECV 0O INPUT 1ST SYNCe 
004615 O€8A O0BD 
004618 OF8B 3060 
004619 * WAIT 
004620 OF€8C 603) 


004622 OEBD O0BD 

004625. OE8E 3060 

004626 * c 24 
004629 Ober 9618 

004630 0£90 1097 

004631 * BET _NSYK 
004632 Ok9l 4196 

004633. VE92 4127 


004621] * RECV 0 INPUT 2ND SYNCe 


004636 * LD 20 
004637 O0&93 OED6 

004640 % AND =eXFDe 
004641 VE94 14C4 . 


004644 , * ouT 2 
004645 O95 FOBD 
004648 0E96 3028 


004649 * Lb 20 
004052 0E97 D614 

004653 * OUT 2 
004654 0&98 6D30 . 
004657 * 8 SINK 


004658 0F99 2820 
004661 * LOC = NSYK 


taanwir vide anak Rtas Baddtah mend welds Lida cnt Coat en tt Juul Abbie acttetens vind oem Siew ee ae ff 
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004662 Q22D NSYK. EQU X#0220! 
004663 * WAIT 
004664 OE€9A E0B8D 
004665. OE9B 3100 
004666 * RECV 10) 
004667 O&9C &8D30 
004670 * WAIT 
004671 OEF9D 6060 
004672 OEF9E 3100 
004673 * LD 30 
004676 OKOF DOLE 
004677 * BZF UDOR 
004678 OEAO 5026 
00468] * BARF RERKR 
004682 OFA] 36820 
004685 * LD 20 
004686 OEFA2 OQOED6 
004689 * OUT 2 
004690 OEFA3 14BD 
004093 OEA4 3028 
004694 * LOC BUFE 
004695 0242 BUFE EQU X#'0242°* 
004696 * RECV 0) 
004697 OEA5 BD30 
004700 * ST 
004701 QkA6 60B8D 
004702 OEA? 30C0 . 
004703 * BARF BUFE 
004706 OEA8 20F8 
004707 eS BART CHRL 
004708 * LOC RERR 
004709 0246 RERR EQU X?024BE 
004710 # LO sXtFFE 
004711 OQOEAQ O1C6 
004714 * ST 61 
004715 OEAA FFO7 
004718 * LOC CHRL 
004719 O24F CHRL EQU X*O024F? 
004720 * LD eX133° 
004721 OQOEAB 30C6 
004724 * oT 62 
004725 OAC 3307 
004728 * LD =127 
004729 OEAD 3EC6 
004732 * ST 59 
004733 OEAE TFOT 
004736 * LO BEPY3 
004737 0257 BEPY3 EQU X*02578 
004738 * WAIT 
004739 OEAF 3BBD 
004740 OEFBO 3100 
00474] * RECV 0 
004742 O§B1 68D30 
004745 * ST 
004746 OFB2Z 60BD 
004747 Q&B3 30C0 
004748 * a) 59 
004751 O&B4 0636 
004752 * DEC 

- 094753. le * BZT. SIP3 
004754 0O&€BS SA5D 
004757 OFBG 2758 
004758 * ST 59 
00476] OEFB7 0736 
004762 * IN 5 CHECK BUFFER EMPTY BIT 
004763. OEBB 68030 
004766 * AND sX904! 
004767 OEB9 14C4 : 
004770 * BZF BEPY3 
004771 QEBA 0450 
006774 OEBB 26E7 
004775 * LD =0 
0046778 VEBC C600 
004779 * oT 62 
004782 OEBD D73E 
004783 * 8 STP3 
004786 OEBE 2048 
004787 * LOC UDOR 
004788 0276 UDOR EQU X*0Z76! 
004789 * ¢ =XtF9 
004792 OEBF 860F 
004793 OECO 1097 
004794 * BET UND 
004795 OECL 4196 
004796 OEC2 4127 
004799 — . * RECV 0 
004800 OEC3 OBBD 
004803 OEC4 3060 
004804 # ST 
004605 OEC5 B8D30 
004806 . * WAIT 
004807 QEC6 COBD 
004808 OEC7 3100 
004809 * B STP3 
006812 OECS 2034 
0048613 * 
004814 * 
004815 * LOC UND 
004616 O2B8A UND EQU X*028A* 
004817 . LO B64 
004820. OEC9 C640 
004821 * LOC FIFE 
004822 028C FIFE. EQU xX*028C! 
004823 * ST 59 
004826 OECA 0738 i 
004827 * BARF FIF3 
004830 ECB 200C 
00483] * RECV Q 
004832 OECC BD30 
004835 * ST 
004836 OECD 608D 
004837 OECE 30C0 
004838 * Lo 59 


TITLE DCMCes 


004841 


004642 
004843 


0046844. 


004847 
004848 
004849 
004850 


004853. 
004854 


004855 
004856 
004857 


004860. 


004861 


004662. 


004863 
' 004864 
004867 
004868 
004871 


004872. 
004875 
004876 


004879 
004880 
004883 


004884. 


004887 
004888 
004689 
004890 
004891 
004894 
004895 
004896 
004897 
004898 
004899 
004900 
904901 
004902 
004905 
004906 
004907 
004910 
00691] 


004912. 


004913 
004914 
004915 
004916 
°004917 
004918 
006919 
004920 
004921 


004922. 


004923 
904924 
004927 
004928 
004929 
004932 
004933 
004936 
004937 
004940 
004941 
004942 
004943 
004944 
004947 
004948 
00495] 
004952 
004953 
004956 
004957 
004960 
00496] 
004964 
004965 
004966 
004967 
004970 
00497) 
Q04972 
004973 
004976 
004977 
004980 
00498) 
004984 
004985 
004986 
004989 
004990 
004991 
004994 
004995 
004996 


004997 


004998 
00500) 
005002 
005003 
005004 


005005 © 


005006 
005009 


005010 


005011 


OECF 


OEDO 


OEDI. 


OED2 


OED3 
OED4 


EDS 
OEDe 


OED7T 
OEDS 
QE09 
OEDA 


O06 
OEDC 


OEDD 


OEDE 
OEDF 


OEEO 


OEEL 
OEE2 


OEE3 
QOEES 


QEE5 
OEE6 


OEE7 
OEES 


VEED 
OEEA 
OEEB 


OEE. 


OEED 
OEEE 


OEEF 
OEFO 


OEF] 
OEF2 
OEF3 


OEFS. 


OEFS 


OEFS6 
OEF7 


OEFS 
OEF9 


OEFA 
OEFB 
OEFC 
OEFD 
OEFE 


OEFF 
OFOO 


OFO] 
OF 02 


"REV AY 


0636. 


SASD 
2702 


O29C 
20EE 
029€ 
BD30 


6080 
30C0 


BD30 
1407 
3CD6 
14CA 
0107 


148D 
3028 


BD31 
QOBD 


3060 - 


8030 


COBD 
3100 


OZBE 
Ce00 
BD30 


28BD 
3120 


BD31 
0001 


OEE9 
0602 
BD30 
38D6 


18BD 
3030 


BD31 


0080 
3014 


C404 
5D27 
04C6 
1107 
o419 


3EC6 


041B 
0307 
3606 
18BD 


3040 - 


D63B 
5A5D 
2705 
6b31 
0020 
0420 


EEBD 
3100 


D6lE 
2026 


CLA TEST (SAF) 


XMBB EQU X#041B8 
: ST 89 


“ LD 24 

* SEND O 

* LO 59 

. DEC 

. BZT 5D8B 
. WALT 

" B XMBB 
: LOC | SDBB 
SDBB EQU X*042DI 

* WAIT 

: LD 30 

* BZF ORUD 
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* DEC 
* B2T Bl 
* OC: FIF3 om ie 
FIF3 EQU X#029Ct —  - 
* BF AFE 
* LOC Bl 
Bl EQU Xt1029E8 
% RECV (8) 
*: ST 
* IN 5 
# ST 60. 
* LD 20 
* OR dL 
* ST  —-20 
* OUT 2 TURN ON XMIT 
* WAIT 
* RECV 0 
# ST 
m * WAIT 
#. LOC ‘STP3 
STP3 EQU X*O02BEt 
* LD =O 
& OUT 2 
* GNB 
* WAIT 
* NOP 
* , 
* CHANNEL PROOGRAM FOR BROADBAND LOOP (XMjT) \ 
* ADAPTER: READY & UNDERRUN OVERRUN TEST 
* * ca 
* 
x ORG X*400" 
CHLP6A EQU — 
* 42 2 _ GET. LINE CONFIGURATION 
* QUT 6 OUTPUI IT 
# “LD 24 
* OuT 4 
% WAIT 
* IN 5 CHECK BUFFER EMPTy BIT 
* AND BXI0GE 
* B2ZT BEPY 
* LD zXe]]¢ 
* ST 62 
* L BEPY 
BEPY EQU X#04198 
* LO 33 
* LOC XMBB 


LOAD SYNC. CHAR 
SEND IT 


DO SIX TIMES 
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005014 * a) 20 
005015 OFO03 48D6 

005018 * AND sX*FDe 
005019 OFO4 14C4 

005022 * OUT 2 
005023 OF05 FODBD 

005026 OFOG 3028 

005027 © * LD 354 
005030 OFOT C63A 

00503) * LOC PGCX 
005032 043E PGCX EQU Xt043E8 
005033 * ST 59 
005036 OFO8 0b73B 

005037 * LO 

005038 OFO9 68D30 

005039 * . SEND 0) 


005040 OFOA AO0BD 
005043 OUFOB 3040 


005044 * LD 59 
005047 OFOC 0636 

005048 *. DEC 

005049 * BLT ALD 


005050 OFOD 5A5D 
905053 OFOE 2702 


005054 i 8 PGCX 

005057 OFOF Z20FO 

005058 * LOC = ALD 

005059 0446 ALD EQU X"044E8 

005060 * IN 5 CHECK BUFFER EMPTy BIT 
005061 0F10 8D30 

005064 * AND = 3X 8048 

005065 OF11 144 

005068 * BZF  - BEPY1 


005069 OF12 045b 
005072 OF13 2604 


005073 * LO sXe22r 
005076 OFI4Y Cb6e2 
005077 * oT 62 
005080 OF15 ODT3E 

005081 * LOC BEPY1 
005082 045A BEPYL EQU X*045At 
005083 # Lb =70 
005086 OF16 C646 

005087 * LOC AL 76 
005088 045C AL76 EQU X*045C! 
005089 * ST 59 
005092 OFI7 0736 

005093: * LD 

005094 OFI18 8030 

005095 * SEND 0 


005096 OFI9 AQBD 
005099 OFIA 3040 


ne 005100 * LO 59 
005103 OF1B D63B 
( 005104 x DEC 

005105 * B2T ALT? 
005106 OFIC 5A5D 
005109 OFID 2706 
005110 BART ALT6 
00511) * WAIT 
005112 OFIE 0180 
005113 OFIF 3100 
005114 * B TRGV 
005117 OFZ0 2004 | 
005118 * LOC ALT77 
005119 0470 AL77 EQU X#04708 
005120 * LD- =XtFFE 
005123 OF2Z1 COFF 
005124 * ST 60 
005127 OF22 D73¢ 
005128 * LOC TRCV 
005129 0474 TRCV EQU X*04748 
005130 * Lo 20 
005133 OF23 D614 : 
005134 ; * AND sXeFCe TURN UFF XMIT AND RECVe 
005137 OF24% C4FC 
005138 * OUT 2 
005139 OF25 8D30 . 
005142 # b ALb1 
005143 OF26 2820 
005146 # LOC ORUD 
005147 047D ORUD EQU X*0470# 
005148 wt C sXtFe 


005149 OF27 4386 

005152 OF28 OF1O 

005153 OF29 9741 

005154 e BEF  OVR 
005155 OF2A 9641 | 

005158, OF2B 261A 


005159 x LD zo 

005162 OF2ZC 0614 , 

005163 * AND  —s-_ &X FE t 

005166 OFZD CaFE 

005167 | * ST 20 

005170 OFZE 0714 | 

005171 # OUT 2 TURN OFF XMIT 
005172 OFZF 68D30 

005175 * WAIT 


005176 OF30 2880 
005177 OF31 3100 


005178 i) 
005179 OF32 BD30 | 
7 005180 # . SEND 0 

/ 00518) OF33 AOBD 

005184 O0F34 3060 
005185 * GNB 
005186 OF35 6D31 
005187 | *# = WAIT 


005188 OF36 208D 
005189 OF37 3100 
005190 * B ALOL 
005193. 0F38 2020 

005194 ~ 
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005195 * 
005196 * Loc OVR 
005197 O4A0 OVR EQU X#04A09 . 
005196 * LO ££ 
005199 OF39 6030 : ‘a 
005200 | # SEND 0 . » 
005201 OF3A A08D . nor 
005204 OF3B 3040 
005205 | * BART  OVR 
005206 . * LD =74 
005207 OF3C O1C6 
005210 * LOC CNT : 
005211 O4A9 CNT EQU X#04A98 | 
005212 * ST 30 
005213 OF3bD 4AD7 , 
005216 * BARF  ROTR 
005217 OF3E 1E20 ; 
005220 *% ~ 40 
005221 OF3F OCBD 
005222 OF40 30A0 | 
005223 * SEND 0 
005224 OF41 68D30 ' 
005227 * LO 30 
005228 OF42 40bD6 
005231 % B2T OVCK 
005232 OF43 lE5D 
005235 OF44 2703 
005236 * DEC 
005237 * LOC ROTR 
005238 04B9 ROTR EQU X*04B9t | 
005239 . * ) CNT 
005240 OF45 5A20 
005243 | x LOC OVCK 
005244 0488 OVCK. EQU X*04BB" 
005245 * IN 5 
005246 OF46 EEBD 
005249 OF4S7 3014 
005250 * ST 60 
005253 OF4s8 0D73C 
005254 , * 
005255 x 
005256 * . LOC ALb1 
005257 04C0 ALD] EQU X#04C0# 
005258 * LO 20 
005261 OF49 D6l4 
005262 5 % AND aX°FEF 
006265 OF4A C4FE 
005266 * ST 20 
005269 OF4B 0714 
005270 * QUT 2 
005271 OF4C 8030 
005274 * GNB 
005275 OF4D 2880 , 
O05276 OF4E 3120 : | i \ 
005277 ; _* LOC TAMPA < J 
005278 Q4cc TAMPA EQU X'04cCce Mowe 
005279 * WAIT 
005280 OF4F 6031 
005281 * B- TAMPA - 
008282 _OF5Q 0020 
005285 * NOP 
005286 OFS) FBOL 
005287 * 
005288 * 
005289 * CHANNEL. PROGRAM FOR STOP 1/0(BROAVBAND RECV,) 
005290 a ; 
005291 * 
005292. * ORG x*2008 
005293 OF52 CHLP7 EQU $ . 
005294 o# LD 24 GET LINE SPEED (ASYNC) UR SYNC CHAR (SYNC) 
005297 OF52 D618 . 
005298 * OUT 4 OUTPUT IT 
005299 OF53 6BD30 
005302 o* LD 20 
005303 OF54 3006 
005306 * QUT 2 
005307 OF55 48D 
005310 OF56 3028 
00531] * WAIT 
005312. OF57 BD3) 
005313 Loc SINKI 
005314 O20D « SINK] EQU X'Oz0D8 
005315 * RECV 0 INPUT 15T SYNC. 
005316 OF58 00680 
005319 OF59 3060 
005320 * WAIT 
005321 OFSA 6031 : 
005322 . * RECV 0 INPUT 2ND SYNC. 


005323 OF5B O0BD 
005326 OF5C 3060 
005327 # C 24 
005330 OF5D 9618 
005331 OFSE 1097 
005332 | . * BET -NSYK1 
005333. OF5F 4196 
005334 OF60 4127 


005337 * LD 20 
005338 OF6l OED6e 

005341 * AND = ®X¥FDE 
005342 OFe2 14C4 

005345 * OUT = 2 
005346 OF63 FOBD 

005349 OF64 3026 | 

005350 * LD 20 
005353 OF65 D6l4 

005354 | * OUT 2 
005355 OF66 6D30 

005358 * +6 SINKI 
005359 OF67 2820 

005362 * LOC =—- NSYK11 
005363 0220 NSYKL EQU X*Qzz2De 
005364 # WAIT 


005365 OF6s EOBD 


TITLE DCMG2s 


005366 
005367 
005368 
005371 
005372 
005373 
005374 
005375 
005376 
005377 
005380 
005381 
005384 
005385 
005386 
005387 
005390 
005391 
005392 
005393 
005394 
005395 
005396 
005399 
005400 
005401 
005402 
005403 
005404 
005407 
005408 
005409 
005410 
005411 
005412 
005415 
005416 
005417 
005418 
005421 
005422 
005425 
005426 
005427 
005428 
005429 
005430 
005431 
005434 
005435 
005436 
005437 
005438 
005439 
005440 
00544] 
005442 
005443 
005444 


005445. 


005446 
005449 
005450 
005451 
005454 
005455 
005458 
005459 
005462 
005463 
005464 
005465 
005466 
005469 
005470 
005471 
005472 
005475 
005476 
005479 
005480 
005483 
005484 
005487 
005488 
005489 
005490 
005493 


005494. 


005495 


005496 


005497 
005500 
005501 


00550¢. 


005503 
005504 
005505 
005508 
005509 
005510 
005513 
005514 
005515 
005516 
005517 
005518 
005519 
005520 
005521 
0055246 
005525 
005526 


OF 69 


 OFGA 


OF6B 
OF6C 


OF 6D 
OF6E 
OF 6F 
OF7O 


OF71 
OF 72 


OF 73 


OF 74 
OF75 


OFT76 


OFT7 
OFT7S8 


OF79 
OFTA 
OF7B 


OFTC 


OFTO 
OF7TE 


OF TF 


OF 80 
OF81 


OF82 


OF 83 


OF 84 
OF 85 
OF 86 


OF 87 
OF88 


OF 89 
OFBA 


OF8B 
OF 8C 


OF 8D 
OF SE 


OF 8F 
OF90 
OF91 
OF92 
OF93 


OF94 
OF95 


OF96 
OF97 


OF98 
OF99 


OF9A 


OF 96 
OF9C 


"REV At 


3100 


BD30 © 


0233 


60BD 
3100 


Bb30 
6086 
bB10 
974] 


9641 
26F) 


BD31 
0245 


OOBD 
3060 


BD30 


CODE 
6327 


060] 
BD31 
0020 
0255 
FOC6 


QOBD 
3028 


B03) 


208D 
3100 


20AB 


0100 
OF B4 


D602 
BD30 
38C6 


AABD 
3030 


BD31 
00C6 
040F 
0607 
3F06 


18BD 
3040 


D63F 
5A5D 
2705 
BD31 
0020 
0421 


EEBD 
3100 


C606 
BD30 


40B0 
3100 


042C 
BD30 


AOBD 
3040 


oN ean cate Sel ee ee a Scat RE & a, 


CLA TEST (SAF) 
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CHANNEL PROGRAM FOR STOP 1/0 (BROADBANY XMI7) 


* RECV ¢) 
* LOC LKbl 
LKB1 EQU X*0233" 
* AIT 
* RECV 0 
+ Cc =X*pB?e 
* BEF LK&1 
* WAIT 
* LOC T25A 
T25A EQU X902459 
* RECV Q 
* ST 
% BLCT KER | 
% BART T25A 
* WAIT 
* B T25A 
* LOC KER 
KER EQU X#02558 
* Lo =0 
* OUT 2 
* GNB 
# wAIT 
* rs) SINKI 
* NOP 
* 
% 
* 
* 
* 
% 
* 
%. ORG x*4o008 
CHLP7A EQU $ 
* Lo 2 
* OUT 6 
* LO sXAA? 
# OUT 4 
* WAIT 
* LO 26 
* LOC XMWW 
XMWW EQU X*040F* 
& ST 63 
* LO 24 
* SEND 0 
* LD 63 
* DEC 
* BZT SOWW 
* WAIT 
* B XMWW 
* LOC -SOWW 
' SOwwW EQU X*04Q]* 
* WAIT 
* LD aX*DB8 
* SEND 0 
* WAIT 
# LOC =—-~T25B 
T25B EQU X*042C1 
* LOD 
* SEND 0 
* BART Te5B 
* WAIT 


GET LINE CONFIGURATION 
OUTPUT IT 


LOAD SYNC. CHAR 
SEND IT 


00 SIX TIMES 
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005527 OF9D 018D 
005528. OF9E 3100 


005529 LOC HANG 
005530; 0436: HANG EQU X10436! 
005531 #: 0° 

005532 OF9F 6D30 

005533. : * SEND 0 


005534 OFAO AOBD 
005537 OFAl 3040 
005538 * BLCT ERR 
005539 OFA2 DE63 
005542. OFA3 2705 


005543. % WAIT 
005544 OFA4 6D31 

005545 . ; w ) HANG 
005546 OFA5 0020 

005549 aaa. * LOC ERK 
005550 0445 ERR EQU X#04459 
00555) ; * WAIT 


005552 OFA6 FI1BD 
005553 OFA 3100 


005554 * Lo 20 
005557 OFAB. D614 

005558. * AND 3X" FE® 
00556) OFA9 C4FE | 
005562, * QUT 2 
005563 UFAA. 8030 | oe 

005566 * GNB 


005567 OFAB 28BD 

005568 OFAC 3120 

005569 7 x WAIT 
005570 OFAD 6031 

005571 . x B T258 
005572 OFAE 0020 

005575 

005576 OFAF O501 2 
005577 | 

005578 

005579 

005580 

005581 

005582 

005583 ORG X*2008 

005584. OFBO -HLPB EQU $ 

005585 | LD =: 24 | 

005588. OFBO D6ls 

005589 * OUT 4 | OUTPUT SYNC. CHARACTER 

005590 OFB1 6030 

005593. * LD 20 

005594 OFB2 30D6 . 

005597 * OUT 2 OUTPUT LINE CONTROL 

005598 OFB3 148D | a 
005601 OFB4 3028 ~ 
005602 # WALT , 
005603 OFB5 #D31 | a 
005604 # . ens 
005605 * Loc SYCH GET IN RECVe IN SYNC. : 

005606 020D SYCH. EQU X"0zZ0D8 

005607 * RECV O 

005608 OFB6 O0BD 

005611 OFB7 3060 

005612. # BART  SCY2 

005613 | * WALT 

005614 OFB8 O1BD | 

005615 OFB9 3100 

005616 * LOC SCY2 

005617 0214 SCY2 EQU X102149 

005618 x RECV 0 

005619 OFBA 8D30 

005622 * C 28 

005623 OFBB 6096 : . 

005626 OFBC 1C10 7 . 

005627 OFBD 974) 

005628 x BET SYC 

005629 OFBE 9641 

005632 OFBF 2705 


& 
=z 
So 
vo 


CHANNEL PROGRAM FOR CHARACTER SIZE ANU 
CRC PARITY TESTS (BROADBAND KECVe) 


*¥O RK HH * 


005633 * SFS 

005634 OFCO 6031 

005635 * B SYCH 
005636 OFCL 4020 

005039 * Loc = SY¥ 
005640 0225 SYC EGU xV02259 
005641 * BART  SCY1 
005642 OFC2. E801 | 
005643. * WAIT 

005644 OFC3 BD3) 
005645 * Loc —-_ SCY1L 
005646 0229 SCYL EQU X*0z29" 


005647 # RECV QO 
005648 OFC4 008D 
005651 OFC5 3060 

005652 # ¢C zX198 CHECK FOR START OF MESSAGE SHAR. 
005655 OFC6e 8619 ; 

005656 OFC7 1097 

005657 # BEF SYC 

005656 OFC8 4196 

005059 OFC9 4126 


005662 * 

005663 € LO 24 
005664 OFCA FOD6 
005667 "4 C =xXeagge 


005668 OFCB 1886 

005671 OFCC 3210 

005672 OFCD 9741 ; 

005673 * BET CPRT IF EQUAL GO TO CRC AND PARITY ROUTINES 


005674 OFCE 9641 
005677 OFCF 2760 


005678 - | * 
005679 * LD START OF CHARe Size TEST 

005682 OFDO D602 | , 

005683 * BZT FVBC BRANCH TO FIVE BIT CHARe OUTPUT LOOP 


005684 OFD] 5027 ' 
005687 . % Cc. zX94Q? 


TITLE DCMCe, 


005688 
005691 
005692 
005693 
005694 
005697 


005698 . 


005699 
005700 
005701 
005702 
005703 
005704 
005705 
005706 
005707 
005710 
00571) 
005714 
005715 
005716 
005717 
005720 
005721 
005722 
005723 
005724 
005725 
005728 
005729 
005732 
005733 
005734 
005735 
005736 
005737 
005738 
005739 
005740 
00574) 
005742 
005745 
005746 
005747 
005746 
005749 
005750 
005753 
005754 
005757 
005758 
005759 
005760 
005761 
005762 


005763. 


005764 


005765. 


005766 


009769. 


005770 
0OOSTT3 
005774 
005775 


OOS776 © 


005777 
005780 
00578) 
005782 
005783 
005786 
005787 
005788 
005789 
005790 
005793 
005794 
005795 
005796 
005797 
005800 
00580) 
005804 


005805. 


005806 
005807 
005810 
005611 


005612. 


005613 
005816 
005817 
005818 
005819 
005822 
005823 
005826 
005827 
005628 


005629 


005830 


005833. 
005634 : 


005837 
005838 
005839 
005840 
005843 
005844 
005845 
005846 
005847 
005848 


OF D2 
OF D3 
OF D4 


OFDS5 
OF Do 


100A 


*REV AS 


3686 
4010 
9741 


9641 
2619 


024E 
O1BD 
3100 
Q252 
BD30 
7096 
1E10 
9741 


964) 
27FO 


BOD30 


CODE 
6327 


7F20 


0267 
£701 
BD31 
0266 


QO6D 
3070 


BD30 


CODE 
6327 


6F20 
Q277 
FOOL 
BO31 
O27B 


OOBD 
3060 


961E 
1097 


4196 
4127 


FOBD 
30CQ 


BOl1E 
1097 


4196 
4127 


0293 


06DE 
6327 


4020 
0299 
DED6 


EBD 
30CO 


—20F3 


O2A0 
D617 


8601 
1097 


4196 
4127 
1986 
FO1O 


974) 


9641 


2720 
02B4 


01BD 


Miaeke tivli nt tenon ead eat hen wb vee eee need elite in ttt 


CLA TEST (SAF) PAGE 
* BEF NFBA 
* LOC SXBC 
SXBC EQU X*024E* 

* BART SXb1 
bd WAIT 

* Loc SX 
SXB1l EQU X#02529 

* RECV 2 

* ¢ 30 

% BET SX6C 
* ~ $T 

% BLCT EXT 
* B SXBC 
* 

* LOC NFOA 
NFBA EQU X#0Z67? 

* BART NF VB 
% WAIT 

* LOC NFVB 
NFVB EQU X*026B? 

* RECV 2 

* ST: 

* BLCT EXT 
* 6B NFBA 
* LOC FVBY 
FVBY EQU X*02778 

* BART PVBC 
Ls WAIT 

* LOC FVBC 
FVBC EQU X#027B9 

* RECV 0 

* C 30 

* BET FVBY 
* ST 

* Cc sxX*lEes 
* BET TKF 
* LOC TKFN 
TKFN EQU X#0g938 

* BLCT EXT 
* b FVBY 
* LOC TKF 
TKF EQU X#02998 

* LO 30 

% oT 

* B TKFN 
* LOC CPRT 
CPRT EQU X#02ZA0! 

* LD 23 

* C 3h 

* BET RELA 
* < sX9FO! 
*. BET RE2A 
* LOC RE3ZA 
RE3ZA EQU X*02B4! 

* BART RES 
* WAIT 
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TITLE DCMC2s "REV At 


005849 
005850 
005851 
005852 
005853 
005856 
005857 
005858 
005859 
005860 
005863 
005864 
005867 
005868 
005869 
005870 
005871 
005872 
005873 
005874 


005875. 


005876 
005877 
005878 
005881 
005882 
005883 
005884 
005885 
005886 
005889 
005892 
005893 
005894 
005895 
005896 
005897 
005898 
005899 
005900 
005901 
005902 
005903 
005906 
005907 
005908 
005909 
005910 
005913 
005914 
005917 
005918 
005919 
005920 
005921 
005924 
005925 
005926 
005929 
.. 995930 
005931 
005932 
005933 
005934 
005935 
005936 
005937 
005938 
005939 
005940 
005941 
005942 
005943 
005944 
005947 
005948 
005949 
005952 
005953 
005956 
005957 
005960 
005961 
005964 
005965 
005966 
005967 
005968 
00597) 
005972 
005975 
005976 
005977 
005978 
005981 
005982 
005985 
005986 
005989 
005990 
005993 
005994 
005997 
005998 
005999 
006002 
006003 
006006 
006007 
006008 
006009 
006012 
006013 


1008 


100C 


1000 
LOOE 


100F 
1010 


1011 


1012 
1013 


1014 


1015 
1016 


1017 
1018 


1019 


101A 
101B 


101C 


101d 
LOVE 


LOUF 
1020 


102] 


1022 
1023 


1024. 


1025 
1026 
1027 


1028 
1029 
LO2A 


1026 
102ec 


1020 
102t 
LOeF 
1030 
1031 
1032 


1033 
1034 


1035 
1036 
1037 
1038 
1039 
103A 
1036 
103¢ 


103b 
LO3E 


3100 
0288 
8030 


78BD 
30CO 


DE63 
2722 


20F0 
02C4 
0180 
3100 
02C8 
BD30 


68BD 
30CO 


DE63 
27Tl2 


20FO 
02D4 
0180 
3100 
0208 
BD30 


70BD 
30C0 


DE63 


2702 
20F0 


O2E4 
C600 
6030 


.8BD 


3120 


BD31 


000] 


1028 
D602 
BO30 
38C6 


FFBD 
3030 


D7IC 
BD31 
0006 
1886 
3210 
9741 


9641 
273C 


ColF 
D716 
p71¢ 


deo2 


3027 


2686 
4010 
9741 


964] 
2609 


CLA TEST (SAF) 


* LOC = RE 
REZ EQU X*02u8! 
* RECV 3 
* 5ST 
* BLCT EXT 
* B REZA 
* LOC —- RELA 
RELA EQU XrO2C4" 
* BART REL 
* WAIT 
* 
* LOC RE] 
REL EQU xX#02CB? 
* RECV 1. 
* ST 
* BLCT EXT 
* B RELA 
* LOC = REZA 
REZA EQU X#02D4" 
* BART RE2 
* WAIT 
* 
* LOC = RE@ 
RE2 EQU X*02D8e 
* RECV 2 
* $T 
* BLCT EXT 
% 6 REZA 
tg 
* LOC EXT 
EXT EQU X#02E4¢ 
* LD 20 
* OUT 2 
‘+ GNB 
% WAIT 
* NOP 
* 
* 
* 
x 
® 
* 
* ORG x*4008 
CHLP8A EQU S$ 
* LO 2 
* OUT 6 
* LO SXOFFE 
* OUT 4 
* ST 28 
* WAIT 
* LD 24 
* C eXt320 
* BET Z48 
* LD sX0UFe 
* $T a7 
* oT 28 
% LD 2 
* BZT Z47 
* ¢ sX*408 
* BEF N61] 


* LD sX03F" 


GET LINE CONFIGURATION 


OUTPUI 


PAGE 


\T 
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CHANNEL PROGRAM FOR CHARACTER SIZE ANDO 
CRCsPARITY TESTS (BROADBAND XMIT) 


Da ae OSs SS ee : Rotate 


TITLE DCMC2» 


006016 
006017 
006020 
006021 
006022 
006023 
006026 
006027 
006030 
006031 
006032 
006033 
006036 
006037 
006038 
006039 
006042 
006043 
006046 
006047 
006050 
006051 
006052 
006053 
006056 
006057 
006060 
006061 
006062 


006063 


006066 
006067 
006070 
006071 
006072 
006075 
006076 
006077 
006078 
006079 
006082 
006083 
006086 
006087 
006090 
006091 
006092 
006093 
006096 
006097 


006100 * 


00610) 
006104 
006105 
006106 
006109 
006110 
o06llh 
006112 
006115 
006116 
006119 
006120 
006121 
006124 
006125 
006128 
006129 
006130 
006131 
006134 
006135 
006136 
006137 
006134 
006141 
006142 


006143. 


006146 
006147 
006148 
006151 
006152 
006155 
006156 
006157 
006158 
006161 
006162 
006165 
006166 
006167 


006170. 


006171 
006172 
006173 


006174. 


006175 
006178 
006179 
006180 


006183. 


006184 
006185 
006188 
006189 
006190 
006191 
006192 


006193. 


006196 
006197 
006198 


103F 


1040 


1041 
1042 


1043 
1044 
1045 


1046 
1047 


1046 
1049 


104A 


1046 


104C¢ 
1040 
104E 
LO4F 


1050 
105] 
1052 


1053 
1054 
1055 


1056 


1057 . 


1058 
1059 
LO5A 
1056 
1Q5C¢ 
105D 


1Q05E 


LO5F 


1060 


106] 


1062. 


1063 


1064 


1065. 


1066 


1067 


1068 
1069 


106A 
1068 


106C 
106D 


106E 
106F 
1070 


"REV A? 


C63F 
O71C 


54D7 
1B20 
0437 
1986 
8010 
9741 


964] 
2609 


COTF 
O71C 


54D7 
1B20 
0449 
07C6 
FFO7 
1C54 
O71B 


0450 _ 


D61C 
C4FF 
O71E 
0456 
D61C 
D418 
D7IC 


C606 
O45E 
DI3ZE 
D618 
BD30 
40D6 
3F5A 
9D27 
0101 
046C 
C619 
BD30 


40D6 


1886 
3210 
974] 


964) 


2729 
Deoz 
5027 
0481 


1260 
30A0 


D418 
BD30 


50DE 
6327 


5C0] 
6031 
0020 


0493 


CLA TEST (SAF) 


* 


* 
* 


* 


*% 
N611 EQU 
% 


* 
N711 EQU 
* 


* 


* 
248 EQU 
j ; 


* 
# 
23Z EQU 
me 
* 


* 
* 


* 
* 
e 


XPYZ EQU 
% 


* 
* 


* 


® 
ZXz1 EQuU 
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ST 28 
SR 

ST 27 

B 24? 

LOC N611 
X90437¢ 

C =X*g0? 
BEF N71] 
Lb =X07Ft 
ST 28 

SR 

ST 27 

B Z47 
LOC N711 
X*0449" . 
Lb =XOFFE 
St —.28 

SR 

ST 27 
LOC 247 

X*04508 

LD 28 


AND sXtFre 


ST 30 
LOC Z48 
X*04568 
LD 28 
AND 24 
ST 28 
LO =6 
LOC Z2Z 
X*O045E8 

T 63 
LD 24 
SEND 0 
LD 63 
DEC 
BZT 232 
BART Z2Z 
LOC Z3Z 
X*046C8 
LD =X*]9! 
SEND 0 
LO 24 
C -BXtB2t 


LD 2 
BZT ZXZ1 
Loc — XPYZ 
X*0481! 

Lo 

AND 27 
SEND 2 
BLCT  ZEXT 
BART  XPYZ 
WAIT 

8 XPYZ 


LOC . ZxZ1 
X904938 


TITLE OCMC2s 


006199 
006200 1071 


006201 1072. 


006202 
006205 1073 
006206 


006207 1074 


006210 


006211 1075: 


006z12. 1076 
006215. 

006216 1077 
006217 | 


006218 1076 


006219 
006220 1079 
006223 
0062246 
006225 
006226 
006227 107A 
006230 
006231 1076 
006234 107C 


006235. 107D 


006236 


006237 l1O7E. 


0062460 l0O7F 
006241 


006244 1080 
006245 1081. 


006246 
006247 1082 
006248 1083 
00625) 
006252 
006253 
006254 
006255 1084 
006256 1085 
006257 
006258 1086 
006261 
006262 1087 
006263 1088 
006266 
006267 1089 
006268 
006269 108A 
006270 
006271 1088 
006274 
006275 
006276 
006277 
006278 108C¢ 
006279 1080 
006280 


006281 108c 


Q06284 
0VU6285 lOBF 
006286 1090 
006289 
006290 1091 
006291 
006292 1092 
006293 
006294 1093 
006297 
006298 
006299 
006300 
006301 1094 


006302 1095 


006303 
006304 1096 
006307 
006308 1097 
006309 1098 
006312 
006313 1099 
006314 
006315 109A 
006316 
006317 1098 
006320 
00632] 
006322 
006323 
006324 109¢ 
006327 
006328 109D 
006331 1096 
006332 
006333 109F 
006336 
006337 10A0 
006340 
006341 10Al 
006344 
006345 10Az2 
006348 10A3 
006349 
006350 10AS 
006351 
006352 10A5 
006353 10A6 
006354 
006355 | 
006356 
006357 
006358. 
006359 


"REV Af 


EEBD 
30A0 


D416 
BD30 


40DE 
6327 


4AQ1 
BD31 
0020 


04A5 
EED6 
1786 
0110 
974] 


964) 
2719 


86FO 
1097 


4196 
“4127 
0489 


208D 
30A0 


BD30 


58DE 
6327 


2601 
BD31 
0020 


04C9 


FOBD 
30A0 


BD30 


48DE 
6327 


1601 
BD3i 
0020 


0409 


FOBD 
30A0 


BD30 


SODE 
6327 


0601 
BD31 
0020 


04E9 
FOC6 


OOBD 
3040 


BD30 
40D6 
14C4. 


FEBD 
3028 


BD31 


20BD 
3100 


CLA TEST (SAF) PAGE. 

* Lb 
* AND 27 

 # SEND 0 

tt BLCT ZEXT 
* BART ZXZ1 
* WAIT 

* 8 2X21 
* 
* LOC CRRTX 
CPRTX EQU X*04A58 
* LD. 23 
* Cc zl 
* BET BBCR 
* C EXtFOt 
# BET BBPR 
* 
SS LOC BBPCR 
BBPCR. EQU X*04B98 
# LD 
# SEND 3 
# BLCT ZEXT 
* BART  BBPCR 
® WAIT 
* B BBPCR 
*% 
* LOC BBCR 
BBCR EQU .X?04C98 
* LO 
® SEND 1 
* BLCT. ZEXT 
* BART  BBCR 
* WAIT 
* B. BBCR 
* 
# Loc BBPR 
BBPR EQU X#04D98 
% LD 
* SEND 2 
* BLCT ZEXT 
* BART  BBPR 
* WAIT 
* 8 BBPR 
* 
* LOC ZEXT 
ZEXT EQU X'04E9¢ 
* LD. aQ 

* SEND 0 
* SEND QO 
* Lb 20 
* AND = =X *FE# 
* OUT 2 
* GNB 
* WAIT 
* NOP | 
* 
* CHANNEL PROGRAM FOR MARK & SPACE (REC) 
ci 
* . 
* ORG x* 200 
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TITLE DCMC2e 


006360 
006361 

006362 
006365 
006366 


006367 
-. 006370 


006371 
006374 
006375 
(006376 
-: 006379 
006382 


906383 a 
“LOAE 


“ "006384 
006387 
006388 
006389 
006390 
006391 
006394 
006395 
006396 
006397 
006398 
006399 
006400 
00640) 
006402 
006405 
006406 
006407 
006408 
006409 
006412 
006413 
006414 
006417 
006418 
006421 
006422 
006425 
006426 
006429 
006430 
006433 
006434 
006435 
006436 
006437 
006440 
006441 
006442 
006443 
006444 
006447 
006448 
006449 
006450 
006453 
006454 
006457 
006458 
006459 
006460 
006461 
006462 
006463 
006464 
006465 
006466 
006467 
006468 
006469 
006470 
00647] 
006472 
006473 
006474 
006475 
006476 
006477 
006480 
006481 
006482 
006483 
006486 
006487 


006490 . 


006491 
006494 
006495 
006498 
006499 
006500 


006503. 


006504 
006507 
006508 
006509 
006510 
006513 
006514 
006515 
006516 
006519 
006520 
006523 


006524 


006527 
006528 
006531 
006532 


_LOA7 


LOAB 
1LOAQ 
“LOAA 


10AB 
1OAC 


‘10AD 


LOAF 
10680 


10bB1 


10Be 
1083 


1064 


1085 
1066 


1087 


1068 
10B9 


LOBA 
1088 


L06C 
L0BD 


L06E 
LOBF 


10CQ 
10Cl 


10C2 
10C3 


10C4 


~ 410C5 
10C6 


10C7 


-10C8 
10¢9 


10CA 


10CbB 
10cc 
10Cb 
10CE 


1OCF 
10D0 


10b1 
L0D2 
1003 
10D4 
1005 


10D6 
10D7 
1008 


10D9 
10DA 


10068 
100C 
L0Db 


"REV A® 


0100 


L0A8 


peo 


Bb30 
38C6 


OD6D 
3030 


“D614 


288) 
3100 


BO30 


60B8D 
30CO 


BO31 
0218 


00B8D 
3060 


6bO30 


CO5D 
260C 


BD30 
14C4 


0150 
2704 


C6OFE 
D73C 
0230 


DE63 
2705 


8D31 
0020 
0239 
E2C6 


0080 
3028 


B03) 


2080 
3100 


0100 
10CB 


0400 
BD30 
AQ86 
0510 
974] 


9641 
26068 


Del4 
DALA 
D714 
BD30 
28C6 
0417 
0586 
0710 
974) 


9641 
2622 


D614 
Dg1A 
D714 


B030 © 


“CLA TEST (SAF) 


“sie z Tp. Spies 
‘ ae 


CHLPS = EQU $ 


*. LD 2 

* OUT 6 

* LD =Xepe 
* OUT 4 

* LD 20 

* QUT 2 

* WAIT 

% RECV (?) 

* ST 

* _ WAIT 

* LOC RAN 
RAN EQU X*0216° 

* RECV 0 

* oT 

* BZF BINTA 
% IN 5 

% AND =] 

* BZT BINTA 
* LD SXtrEr 
# oT 60 


* LOC BINTA 
BINTA EQU X#0230° 


* BLCT TON] 
* WAIT 

* B RAN 
% LOC TON] 
TON] EQU X*#02399 

* LD =0 
* QUT a 

* GNB 

* WAIT 

* NOP 

* 

* 

% 

* 

# 

* ORG X*4008# 


CHLP9A EQU $ 


bal LOC CLERK 
CLRK EQU X*#04008 

# LD» GET 
* C &5 

* BEF DENW 
* LD 20 

® OR 26 

# ST 20 

* ‘QUT 2 

* LD #5 

* Loc DENW 
DENW EQU X#0417" 

* C =7 

* BEF BAMB 
#* iD 20 

* XOR 26 

* ST 20 

# OUT 2 
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GET LINE CONFIG. 
QUTPUI IT 
LOAD LINE SPEED 
OUTPUI IT 


GET LINE CONTROL 


CHANNEL PROGRAM FOR MARK & SPACE (XMIT) 


CHARACTER Ty SEND OUT 


CHECK TO SET MARK AND SPACE CONDITION 


SET MARK OR SPACE CONDIJION 


CHECK TO RESET MARK AND SPACE CONDITION 


RESET MARK OR SPACE CONDITION 


TITLE DCMC2s 


006533 
006536 
006537 
006540 
00654] 
0060544 
006545 
006546 
006547 
006550 
006551 


006552. 


006555 
006556 
006559 
006560 
006563 
006564 
006567 
006568 
006571 
006572 
006573 
006574 
006577 
006578 
006579 
006580 
006581 
006584 
006585 
006586 
006589 
006590 
006591 
006592 
006595 
006596 
006597 
006598 
006599 
006600 
006601 
006602 
006603 
006604 
006605 
006608 
006609 
006610 
006613 
006614 
006615 
006616 
006619 
006620 
006621 
006622 
006623 
Q0e624% 


006625. 


006626 
006627 
006628 
006629 
006630 
006631] 
006632 
006633 
006634 
006635 
006636 
006637 
006638 
006639 
006649 
00664] 
006642 
006643 
006644 
006645 
006646 
006647 
006648 
006649 
006650 
006651 
0066052 
006653 
006654 
006655 
006656 
006657 
006658 
006659 
006660 
00666) 
006662 
006663 
006664 
006065 
006666 
006667 
006668 
006669 
006670 
006671 
006672 
006673 
006674 
006675 
006676 
006677 


LODE 
1ODF 


-LQE0 
LOE1 


10E¢2 


10E3 
1OE4 


1LOE5 
10E6 


10E7 
10E8 


LOE9 
1LOEA 


10E6 


1OEC 


1OED 
LOEE 


LOEF 
1OFO 


1OF1 


LOF2 


1OF3 
LOF4 


1OF5 


LOF6 


LOFT 
10F6 


LOF9 


LOFA 
LOF6 
1OFC 
LOFb 
LOFE 
LOFF 
1100 
110) 
1102 
1103 
1104 
1105 


1106 
1107 
1108 
1109 
110A 
1108 
110C¢ 
110d 
L1OE 
L1OF 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
ile 
1119 
LLIA 
1116 
1110 
ALICE 
LLLF 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
L1L2A 
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6D30 
2806 


1A86 
1010 
9741 


9641 
260C 


6030 
14C4 


O150 
2704 


(COEE 
D730 
0440 
C607 
0442 
BD30 


“ODE 
63¢7 


05680 
3100 


2082 
044E 
BO31 


OOBD - 
3120 


0454 
CoFF 
BD30 


40BD 
3100 


20F6 
LOFA 


0001 
0003 
0005 
0009 
000B 
QOOF 
QO00C 
0018 
OOLA 
QOO0IC 
OOlE 
0026 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0034 
0000 
0000 
0000 
0000 
003C 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


CLA TEST (SAF) 


* LO 26 

* Cc eX*LO8 
wt BEF KUNTA 
# IN 5 

te AND =] 

# BZT KUNTA 
*% LO SXVEEF 
* ST 61 

wt LOC KUNTA 
KUNTA EQU X#04408 

tt LD =7 

* LOC BAMB 
BAMB EQU X*0442! 

# SEND O 

* BLCT RAY 

tt WAIT 

# 6 CLRK 
* LOC RAY 
RAY EQU X*044Er 

# WAIT 

* GNB 

* “LOC MARK 
MARK EQU X*0454! 

* 0 SXtFFE 
# SEND O 

* WAIT | 

* i) MARK 


" NOP 
CHLP1O EQU ss S 
* 


wawme 


td 


Resseecassrscsscssssseseses 
* 

R 

FOMC bc x*le 
FOIC DC X*3e 
FOCC DC Xese 
FOLD bc X*gt 
FOBL DC X*B? 
FOCB OC X°F?P 
FIR bC xX*cr 
FIS OC X*lg? 
FINS DC X*LAS 
FIDSS ob¢ xX*1ce 
FILS bC X*1E? 
FIO dC X*26? 
* 

* 

* 

ARFG OC 0 
BYTP oc Q 
CHANL DC ¢) 
CHSZFGO DC 0 
CHNZ DC 0 
COUNT OC 0 

cs OC ) 
CSB bC 0 
CRCAC OC Q 
CRCFG DC 0 
OIVl DC 0 
DIV2 DC 0 
DIV3. bC QO 
DIV4 b¢ Q 

ERF bc 52 
FBRG oC 0 
FWFG DC Q 
HGSPD OC 0 
HISPD vC QO 
HRTZ bc 60 
MASK DC Q 
MSBS RESV 290 
PARFG DC QO 
PTTY OC 0 
PSFG oC 0 
RANGE OC 0 
RCRC OC 0 
RLCTAD DC ¢) 
RLCTRG OC ¢) 
RUNFG DC Q 
TLOC BC @) 

TPl bC 0 

TP2 DC ¢) 
TRMRK DC 0 
SBTFG DC 0 
SHORT DC 0 
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IF SPACE CONVITION CHECK FOR FRAMING ERROR 


MASK OTHER BITS OUT 
BRANCH ON FRAMING ERROR SET 


OUTPUT DLCP CUNTROL 
OUTPUT INTERRUPT CONTROL 
OUTPUT CHANNEL CONTROL 
OUTPUT AUDRESS AND RANGE 
OUTPUT BYTE INTO LcT 
OUTPUT CCB CONTROL 

INPUT RANGE 

INPUT STATUS 

INPUT NEXT STATUS 

INPUT VATA SET STATUS 
INPUT LCI. ATATUS 

INPUT 1D 


+d (4S. eee en ee ee’ 


ADAPTER. READY TEST FLAG 
BYTE OFFSET FOR VSCALLS 


CHARACTER SIZE. TEST FLAG 


CHARACIER SIZé | 
CHARACTER SIZ& INCLUDING START AND STOP BITS 
CRC ACUMMULATOR 


DIVISORS FOR TICKS TO MILLSEC SUB*ROUTINE 


FIRMWAKE PRINT FLAG 
HIGH SPEED FLAG 


LINE FREQUENCY 


BITS/SEC 

PARITY ERROR TEST FLAG 
PARITY TYPE FLAG 

SYNCe PRINT SPEED FLAG 


RECEIVE CRC RESIDUE 

RAM. ADDRESS Ty READ 

RANGE FOR READ FROM RAM. 
OVERRUN AND UNDERRUN TEST FLAG 
TEMPORARY LOCATION 


STOP Bit TIME. TEST FLAG 
TEST FLAG 


( 


TITLE DCMCZs 


006678 
006679 
006680 
006681 
006682 
006683 
006684 
006685 
006686 
0066087 
006688 
006689 
006690 
006691 
006692 
006693 
006694 
006695 
006696 
006697 
006698 
006699 
006700 
00670) 
006702 
006703 
006704 
006705 
006706 
006707 
006708 
006709 
006710 
006711 
006712 
006713 
006714 
006715 
006716 
006717 
006718 
006719 
006720 
006721 
006722 
006723 
006724 
006725 
006726 


006727 
006728 
006729 
006730 
006731 
006732 
006733 


006734 
006735 
006736 
006737 
006738 
006739 
006740 
006741 
006742 
006743 
006744 
006745 
006746 
006747 
0060748 
006749 
006750 
006751 
006752 
006753 
006754 
006755 
006756 
006757 
006758 
006759 
006760 
006761 
006762 


006763. 


006764 
006765 
006766 
006767 
006768 
006769 
006770 
006771 
006772 
006773 
006774 


1128 
112¢ 
1120 
L1ZE 
113] 


1135 
1145 
1155 
1165 


1175 
1176 
1177 
1178 
1179 
L17A 
11768 
lu7¢ 
117D 
LI7E 


LI7F 
1180 
1181 
1182 
1183 
1184 


1185 
1186 
L18E 


1197 
1198 
1199 
119A 


1198 
119C 
119b 


LI9E 
LIA1 


11A6 
11A9 


LLAL 
1161 


11B6 
1169 


1IBE 
11] 


11C6 
11C9 


LICE 
1101 


1106 
1109 


1100 


L1DE 
LLOF 
11E0 


LIE] 


L1E2 
11LE4 
L1ES6 
LILES 
LIEA 
LIEC 
LLEE 
LLFO 


L1Fe2 
LLF3 
L1F4 
LLFS 
LIF6 
11F7 
11LFé8 
L1F9 
IFA 
L1FB 
LIFC 
L1FO 
LIFE 
LLFF 
1200 
1201 


1202 
1203 


0000 
0000 
0000 
FFFF 
0000 


3108 
3118 
3110 
3158 
3150 
3160 
3138 
3130 
3168 
3128 


8000 
4000 
2000 
0800 
0200 
0100 


A001] 
0000 
0000 


0117 
FOL7 
0017 
0000 


805C 
2Cco0 
0O05C 


000] 
0607 
OCOD 
1011 
1617 
1C1D 
202] 
2627 
2C2D 
3031 
3637 


2032 36 


4041 
4647 
4C4D 
5051 
5657 
5C5D 
6061 
6667 
6C6d 
707] 
7677 
7C7D 
5555 


0000 
0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


QO0A 
OO0F 
0016 
001B 
OOlE 
0028 
003¢ 
0078 
0002 
OoFO 
0168 
0190 
01E0 
03co 
0780 


OFOO 


000A 
OOOF 


sa ela Lies abit toce a gee thihinr ane aSeah catia Sere a A Pasties Coke He ae See eee 
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CLA TEST (SAF) 


0405 
OAOB 


1415 
1A1B 


2425 
2A2B 


3435 
3A3B 


4445 
4A4B6 


5455 
5A5B 


6465 
6A6B 


7475 
TATB 


SPEED LINES. 


STPFG DC 

WDBFG DC 

XCRC DC 

LCTV RESV 

ERAR RESV 

: 

SAV1 RESV 

SAV2 —- RESV 

SAV3 RESV 

SAVS RESV 

* 

tegsesresesseses 

% 

% 

% 

ASYN dC 

ASYNI OC 

ASYNC OC 

SYNC DC 

BISYNC DC 

SYN1L88 DC 

WOB3 DC 

WOB3B DC 

wOBV35 DC 

WDOBV5B DC 

* 

BITO oC 

BITl bc 

BIT2 ovC 

BIT4 bc 

BIT6é DC 

BIT? DC 

* 

CRC16 DC 

* 

ATLT RESV 

* 

ADDRS RESV 

* 

CPFLG DC 
bc 
DC 
OC 

* 

CRLF DC 

COMMA DOC 

BKLS oc 

* 

DOUT TEXT 
TEXT 

DOUT1 TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 

DFLT DC 

* 

FIVSEC DC 

SECL DC 

SECH BC 

% 

FRIMRV OC 

* 

* 

* 

ti 

tg 

* 

SYLSPO RESV 

SYLSP1 RESV 

SYLSP2 RESV 

SYLSP3 RESV 

SYLSP4 RESV 

SYLSP5 RESV 

SYLSP6 RESV 

_ SYLSP7 RESV 

% 

NSPTBL DC 

: oC 
Tt @ 
oc 
DC 
oC 
DC 
bC 
OC 
oC 
DC 
DC 
oC 
oc 
bc 
b¢C 

# 

OSPTBL OC 
DC 


PAGE 


a1 


Q STOP 1/0 AND CHANNEL RESET FLAG 

Q BROADBAND TEST FLAG 

8) TRANSMIT CRC RESIDUE 

3e-] 

40 ERROR ARRAY FOR ZV$C 

Ge TR SAF 

9+ 7NSAF 

G+ TRSAF 

9+ 7#SAF 

SSSTSS HSH TOS SS SSS SASS STE RST HSE SRS CSRS SS esses ssSsssssssssssss 
DEFINED CONSTANTS 

X*3108" ASYNC, ID 

X'*31l18¢ ASYNC. IV NEW BAUD RATE 

X*31108 CURRENT LOOP ASYNC, 

X*31589 | SYNCe ID 

X*31508 BISYNCe ID 

x*31608 SYNCe MIL 188 ID 

X*31388 WIDEBAND WITH 301/303 

X#31308 BJ @SYNC,. WIDEBAND wITH 391/303 

X*3168¢ WIDEBAND WITH V35 

Xt3i2ge BI=SYNC. WIDEBAND WITH V35 

z*8000" 

Z2*40008 

x#20008 

x*80oF 

x*2o00F 

X#1008 

Z*AQOO1L? 

840 ACTIVE LINE TABLE 

990 LINE AUVDRESS. TABLE 

X*li7e LCT FLAG FOR CRC ONLY 

Z*FOLT PARITY ONLY 

x*ol7? CRC AND PARITY 

Q 

Z*805Ct 

x#2coo" 

xe5ce 


Z1000102030405060708090A0B0COV0EOF® 


Z*LOLILSLSIGISIOITIBIIIAIBICIVIELF? 


29 2021222324625262728292ALB2C202E2F & 


29303132333435363738393A3B3C3U03E3F¢ 


29404142434445464748494AGB4C404E4E # 


29505152535455565758595A5B5C5U5E5F ¢ 


Z29606162636465666768696A6B6CE06E6F 


Z*707172737475767778797TATBTCTD! 


X955558 
0 
0 
0 


4] 


CONSISTING OF 32 BITS. 


229 
299 


DEFAULT CHARACTER 


5 SECONDS OF TICK ON RTC 


FIRMWARE REV NUMBER 


LINE SPEED JTS IN SECOND WORD FOR LOW AND MEDIUM 
FOR HIGH SPEED LINES THE TWO 
WORDS ARE PUT TOGETHER FORMING 


‘A SINGLE HEX WORD 


SYNCe 
SYNC. 
SYNC. 
SYNC. 
SYNC. 
SYNCe 
SYNC. 
SYNC. 


LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 


0 
1 
2 
3 
4 
5 
6 
7 


2PEED 
oPEED 


- OPEED 


SPEED 
oPEED 
SPEED 
oPEED 
SPEED 


TITLE DCMC2Zs 


006775 
006776 
006777 
006778 
006779 
006780 
006781 


006782. 


006783 
006784 
006785 
006786 
006787 
006788 
006789 
006790 
006791 
006792 


006793. 


006794 
006795 
006796 
006797 
006798 
006799 
006800 
006801 
006802 
006803 
006804 
006805 
006806 
006807 
006808 
006809 
006810 
006811 


006812. 


006813 
006814 
006815 
006816 
006817 
006818 
006819 
006820 
00682] 
006822 
006823 
006824 
006825 
006826 
006627 
006828 
006829 
006830 
00683] 
006832 
006833 
906834 
006835 
006836 
006837 
006838 
006839 
006840 
00664) 
006842 
006843 
006844 
006845 
006846 
006847 
006848 
006849 
006850 
00685] 
006852 


006853 © 


006854 
006855 
006856 
006857 
006858 
006859 
006860 
00686) 


006862 


006863 
006864 
006865 
006866 
006867 
006868 
006869 
006870 
00687) 
006872 
006873 
006874 
006875 
006876 
006877 
006878 
006879 
006880 
00688] 
006882 
006883 
006884 
006685 
006886 
006687 


1204. 


1205 
1206 
1207 
1208 
1209 
120A 
1208 
120C¢ 
1200 
120 
120F 
1210 
1211 


1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 


121A. 


1216 
121c 
1210 
121E 
1l2lF 
1220 


L221 
1lz22 
1223 
1224 
1225 
1226 
1227 
12268 
1229 
1c2a 
1226 
l2ec 
122b 
122k 
Leer 
1230 


1231 
123¢ 
1233 


1234 


1239 
1236 
1237 
1238 


1239 
123A 
1236 
123¢ 


123b 
123E 
123F 
1240 


1241 
1242 


1243 
1244 


1245 


1246 
1247 
1248 
1249 
124A 
1248 
124 
124D 
1246 
124F 
1250 


1251 
l25e 
1253 
1254 


1255 
1256 
1257 
1258 


1259 
125A 
1258 
125C 
125b 
Le5€ 


Le5F 


1260 
1267 
1268 
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0016 


0016 


OO1E 
003Cc 
0078 
00B4 
OOFO 
0168 
QIEO 
02D0 
03CO 
O5A0 
0780 
0000 


0032 
0048 
OO6E 
0087 
0096 
012c 
0258 
0384 
04B0 
0708 
0960 
0E10 
12C0 
1¢20 
2580 


0032 
004B 
006E 
0087 
0096 
00c8 
012¢ 
0258 
041A 
0480 
0708 
0700 
0960 
12C0 
2580 
4B00 


0021 
OO1LE 
0020 
OOlE 


0018 
6078 
8098 
EOFS 


BOBO 
EOEO. 
B0B0 
FOFO 


Olll 
6171 
8191 
ELF] 


00EO 
10FO 


0060 
90FO 


2020 


0020 
4060 
0020 
4060 
0010 
4050 
0010 
4050 
0000 
0040 
0040 


000] 
Q203 
FFO7 
0809 


0001 
0203 
0007 
0809 


0002 
0004 
0008 
0010 
0200 
0400 


1267 
0000 
126F 
0000 


CLA TEST (SAF) 


OC 22 
DC 27 
Dc 30 
DC 60 
bc 120 
pc 180 
OC 240 
oT 360 
DC 480 
DC 720 
te 960 
oC 1440 
DC 1920 
DC. 0 
* 
ALSPBL DC. 50 
DC 75 
OC 110 
oC 135 
OC 150 
we 300 
oC 600 
DC 900 
b¢ 1200 
OC 1800 
Dc 2400 
0c. 3600 
DC 4800 
oc 7200 
OC 9600 

*. : 

CMSPBL DC 50 
DC 75 
DC 110 
DC 135 
bC 150 
bC 200 
oC 300 
OC 600 
oC 1050 
oC 1200 
bc 1800 
DC 2000 
OC 2400 
OC 4800 
DC 9600 
OC 19200 

* 

SBITBL DC 33 
OC 30 
DC 32 

oC 30 

% 

TLTBLA OC X*18°9 
bc X*6078" 
vC Z2*8098? 
DC Z2*EOF8? 

* 

TLTBLC DC Z*BOB6O? 
OT Z*FOFQ?® 
DC ~@*80B80" 
bc Z*FOFO? 

* 

TLTBLS OC X*1)]° 
oC X*6171" 
bc Z2*81918 
OC Z*ELFi¢ 

* 

TLUWB3 OC X*EOF 
OC X"O10FO8 

* 

TLuv35 OC X*608 
OC Z°90F0! 

* 

SPACE OC Z'2020° 

3 

TLUTB2 DOC X*208 

. oc X*4060" 
be X*2Q0° 
DC X*40608 
v¢ X*108° 
Dc X*4050° 
DC X*lyr 
bc X*4Q0508 
uc 0 
u¢c X94Q8 
oC X*4ue 

* - 

XMSB oC l 
bc X#02038 
oC Z¢FFOTS 
bc X*08098 

* 

XSSB bc 1 

als bc X*02039 
DC X*Ou078 
bc X*Q80g9° 

* 

C2 OC 2 

C4 oC 4 

C8 DC 8 

Cle DC 16 

HX200 OC X#200t 

HX400 DC X*#4y08 

* 

Me scssssesscczsseees 

* 

% 

* 

TSA bC <TSA2 
RESV 4+ 3*GAF 40 

TSA2 bC <TSA3 
RESV 4+ 3RSAF 40 
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OLD BAUD RATE LINE. SPEED TABLE 


NEW BAUD RATE LINE SpEED TABLE 


SHOULD BE 


‘SHOULD BE 


SHOULD Bt 


SHOULD BE 


SHOULD. BE 


XMIT MARK 


TABLE FOR DSS TO USC LOOP ASYC. 
TABLE FOR CURRENT LOOP ADAPT. 
TABLE FOR DSS TO DSC LOOP SYNC. 


TABLE FOR BROADBAND 301 


TABLE FOR BROADBAND V35 


SHOULD BE 


XMIT SPACE SHUULD BE 


- —_ = 
SSSPSSBSSSSSSssSsSsseesearwes 


TRAP SAVE AREAS 


- _— =e = = = nd mane 
+ 2-2-2222 2-22 ee ee? 2 ee? 2 2 oe oe 


TITLE DCMC2, 


006888 
006889 
006890 
006891 
006892 
006893 
006894 
006895 
006896 
006897 
006898 
006899 
006900 
006901 
006902 
006903 
006904 
006905 
006906 
006907 
006908 
006909 
006910 
006911 
006912 
006913 
006914 
006915 
006916 
006917 
006918 
006919 
006920 
006921 
006922 
006923 
006924 
006925 
006926 
006927 
006928 


006929 - 


006930 
006931 
006932 
006933 
006934 
006935 
006936 
006937 
006938 
006939 
006940 
00694] 
006942 
006943 
006944 
006945 
006946. 
Q06947 
006948 
006949 
006950 
00695) 
006952 
006953 
006954 
006955 
006956 
006957 
006958 
006959 
006960 
00696] 
006962 
006963 
006964 
006965 
006966 
006967 
006968 
006969 
006970 
00697) 
006972 
006973 
006974. 
006975 


006976 | 


006977 
006976 
006979 
006980 
006981 
006982. 
006983. 
006984 
006985 
006986 
006987 
006988 
006989 
006990 
006991 
006992 
006993 
006994 
006995 
006996 
006997 
006998 
006999 
007000 


126F 


1277 


l27b 
l27¢ 


L27bv 
1281 
L282 


1283 
1284 
1285 


1286 
1287 
1288 
1289 
128A 
1286 
128C 
128 


128 
128F 
1290 
1291 
1292 
1293 
1294 
1295 


1296 
1297 
1298 
1299 
129A 
1296 
129C 
L29b 


129E€ 
Leor 
12A0 
12Al 
12A¢ 
12A3 
12A4% 


12A5 
12A6 
12A7 
12A8 
12A9 
12AA 
12AB 
12AC 
1ZAD 
12AE 


12AF 
12B0 
1261 
12Be 
12B3 
1264 
1285 
1266 
1267 
12B8 


1289 
12BA 
12bb 
12bBC 
12BD 


12BE 


126F 
12C0 
12Cl 


122 
12¢3 
1204 
12C5 
12C6 
127 
12C8 
1209 
12CA 
12GB 


12CC 
12CD 
12CE 
12CF 
1200 
1201 
12D2 


*REV At 


0000 


0000 
0306 
6000 


0000 
O2CD 
6000 


0206 
0414 
0000 


0206 
0426 
C802 
C822 
OE18 
C714 
0000 
0000 


0206 
0426 
C802 
C822 
OE1B 
C714 
0117 
0000 


0206 
0426 
C002 
C022 
0000 
C714 
0000 
0000 


0206 
0426 
0002 
0022 
0000 
C714 
0000 


0206 
0426 
C802 
C822 
OEL8 
C714 
OFLO 
OF LL 
0000 
0000 


0206 
0226 
C027 
C802 
C822 
OE18 
C714 
0210 
0125 
0000 


0206 
0226 
C802 
C822 


FCID 


0439 
0105 
0125 
0000 


0206 
0426 
C802 
C822 
C518 
C714 
0105 
0125 


0000. 


0000 


0206 
0426 
C802 
C822 
0000 
C314 
0000 
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TSA3 RESV 820 

* 

RESSOCSASSHRSAATSESASSSSFSAHSSSSSST TSH ESSSSHSRSSSOSSSSST esse se TeSsSsserssesses 

* 

* INTERRUPT SAVE AREAS 

* 

ISA1 RESV 3¢SAF,0 INTERRUPT SAVK AREA FOR LEVEL 1 (RTC) 

ISALP OC <NOSPD 
oc X#6V0008 

* 

ISA4 RESV 34SAF 90 

ISA4P OC <SPSYT] 
oc X*6N008 

* 

RERAOSSSOSSH SS SSSTSSSSTASSAFSSSSSSHTSSMSSHSSSRSSSASSSSASSSaAB ESB RSSSSTS SRS sTS= 

* 

# LINE CONTROL TABLES 

* 

LCT DC x*206! STARTING ADDRESS OF CHANNEL PROG. 
DC X*4148 © RECVe LINE CONTROL SET TEST MODE 
oc a) TABLE END 

* 

LCT DC X*206! 
pe X*426' 

DC 2*Cso2? 
DC Z*Ce22! 

LCT1S DC X"ELB! 

LCILCR DC Z2°*C714!9 LINE CUNTROL 

LCLSYF DC ) SYNCe FLAG 
DC 0 END OF TABLE 

* 

LCT2 DC X*206! 

DC X*426! 

LC2ZCFR DC 2*Cu02? 

LC2CFX DC Z2*Cé22! 

LCT25 DC X*Els? 

DC Z°C7149 

LCTZFG DC X*ui7e FLAG FOR TYPE OF SEND ANV RECV 
bec Q 

* 

LCT3 DC X*206? RAM STARTING ADDRESS (RECV) 

. DC X*426! RAM STARTING ADORESS (XMIT) 

LC3CFR DC Z#coo2? CONFIGURATION (RECy) 

LC3CFX OC 2*cu2eet CONFIGURATION (XMIT) 

LCT3S ODOC QO SPEED IN SCRATCH LOCATION 
bc 2*C714 LINE CONTROL (RECV) 

LC3SYF DC 0 SYNC FLAG 
RESV 190 

* 

LCT4 OC X*2068 
DC X*426? 

LC4CFR OC 2 

LC4CFX DC X*22% 

LCT4S DC oO 
OC Z*C7149 
RESV 120 

% 

LCT5 DC X*2068 
be X"426!? 
oc 2*Ceo2? 

DC Z*Ce2ze? 

LCT5S v¢ X*ElBF 
DC Z°*C7148 
DC X*FVOF LCT STATUS BYTES 
DC X*Fil° is 

LCSSYF OC 0 SYNCe LINE FLAG 
DC 0 

# 

LCT6 DC X'206° 
oC X*226!9 
DC Z2'*Coe7? 
oc z*ceo2t 
bec Z2'*Cse2e! 

LCT6S OC X'E18* 

DC 2*C714!9 

LCT6TF OC X*2 yor 
DC x*1g5" DISABLE PAUSE 
DC 0 

% 

LCT7 bC X*2068 
DC X*2268 
DC Z'Ce8o2? 

DC Z'C822' 

LC7SM OC Z*FCID9 MASK TO CHECK BITS(FCHASYs F8=SYCe) 
DC X'4398 TLU POINTER TABLE 1 
bc X*105° 
bC x'1e5e 
RESV 1:0 

* 

LCT8 DC x'2068 
OC X*4268 
DC Z2'Cea2? 

DC Z2*C822* 
OC Z2'C318°* 
OC Z2'C714!9 
DC X*105! DISABLE PAUSE 

bC KX'lese DISABLE PAUSE 

LCTBFG DC 0 
RESV 190 

* 

LCT9 * DC x#2068 

, bc X*4268 
DC z#Csoe" 

DC Z2'C822' 

LCTOMS OC oO 
oc Z1C314" 
bc Q 

* 

* 

KSSSTSSSSTSHSSSSSSSTSSTSIS SSSSSSSSSSSTRT RE RRS ETS SHAS Sessa sss sSsssesrsssessss 

* 

* FORMAT FOR DRIVER 

% 


TITLE DCMC2s *REV At 


CLA TEST (SAF) 
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thee 1203 0006 wCP DC 6 RANGE UF PROGRAM IN BYTES 
007002 * 
007003 1204 OBF8 wCPl oC <CHLP1 CHANNEL PROGRAM ADDRESS 
007004 1205 0C34 DC <CHLPIA XMIT CHANNEL PROGRAM ADDKESS 
007005 12bDe 0078 RAG] oc (CHLPLA@CHLP1) ¥2 RANGE UF CHANNEL PROGRAM 
007006 i207 O05C¢ RAG2 DC (CHLP2Z@CHLPLA) #2 RANGE UF PROGKAM IN BYTES 
007007 i208 0400 bc X*4008 : RAM ADDRESS 
007008 * 
QOO07009 1209 O0C62 wCP2 vc SCHLP2 CHANNEL PROGRAM AUDRESS 
QOO7010 Ll2DA OCB3 DC <CHLPZA. _XMIT CHANNEL PROGRAM ADDKESS 
OO701L1 12D8 O0A2 oc (CHLPZA*CHLP2)*2 §= RANGE UF CHANNEL PROGRAM 
OO7012 12D0C OO9E bC (CHLP3=CHLP2A) #2 RANGE UF CHANNEL PROGRAM 
007013. 12Db 0400 DC X#4008 RAM STARTING ADDRESS 
Q07014 = * 
007015 12DE oOp02 WwCP3 pc <CHLP3. 
OO7016 12DF 0048 oC <CHLP3A 
007017 I2E0 O08C bc . ({CHLP3A@CHLP3) #2 
OO70L8 I2El 0066 oC (CHL PS@CHLP3A) #2 
007019 12E2 0400 DC X*4Q0t 
007020 * 
007021 1263 ODA3 WCP4 DC <CHL PS 
QOO7022. 12E4 ODOF oC <CHLPGA 
007023 1265 0078 DC (CHL P4A@CHLP4) #2 
007024 12E6 0004 dC (CHLP5=CHLPGA) #2 
007025 1i22E7 - 02C0 Oc x*ecor 
007026 * 
007027 12E8 0076 WCP5 OC. (CHLPOG=CHLPS) *2 
007028 12E9 0016 WCP5B OC 22 Hs 
007029 * 
007030 l2EA O84 WCP6 OC <CHLP6 
00703] 12EB OEE bc <CHLP6A 
007032  12EC O0CA bc (CHL POA=CHLP6) *2 
007033. 12ED 00D2 bC (CHLPT=CHLP6A) #2 
007034 12EE 0400 DC X*4008 
007035 * 
007036 1l2EF OF52 WCP7 b¢c <CHLP7 
007037 12FO OF84 ie <CHLPTA 
007038 I 12Fl 0064 OC (CHLP 7TA=CHLP7) #2 
007039  l2eF2 0058 DC (CHLPB@CHLPTA) #2 
007040 12F3 0400 oC X*4Qo! 
00704) l2F4 0000 RESV 2,0 
007042. * 
007043 12Fe OFBO WCP8 DC <CHLPS 
OOT044 2-7 1028 be <CHLPBA 
007045 12F8 OOFQO OC (CHLPBSAKCHLPS) *2 
007046 12F9 0100 OC (CHLP9-CHL PSA) #2 
007047 12FA 0400 DC X*4Q08 
007048 * 
007049 12FB 10A8 . WCP9 bc <CHLPY 
007050  l2eFC 10CB vc <CHLPIA 
007051 l2FD 0046 DC (CHLPOA=CHLPY) #2 
007052 IJeFE OOSE bC (CHLPLO=CHLP9A) #2 © 
007053 L2FF 0400 DC X*4008 Fae 
007054 * ad 
007055 WSSSRESRSRSSTSSESTSSRSAASHSSASSSS SSS HSH ST RE RT SSL SS Sesser ee TsSTsssssess 7 
007056 * . i 
007057 * CONSOLE MESSAGES _ 
007058 * 
007059 1300 434C 4120 5445 MESG TEXT "CLA TEST? 
, 1303. 5354 , : 
007060 IFZ (SAF=2) »PLAF 
007061 1304 2020 4443 4043 TEXT © DCMC2]sREVHA * 
1307 322C 5245 562d ‘ 
, 4120 
007065 1308 2020 2041 5052 SLAF TEXT ' APR 06 197838 
1306 2030 3620 3139 
3738 2400 
Q007066 1313 4153 594E 4348 MESG2 TEXT "ASYNCHRONOUS LINES? 
, 1316 S24F 4E4F 5553 
204C 494E 4524 
007067 131C 2053 5045 4544 MESG& TEXT * SPEED IS $? 
131F 2049 5320 2024 
O0O7068 1322 2053 484F 554C MESG5 TEXT * SHOULD BE $? 
1325 4420 4245 2024 
007069 1328 4&45 5854 2024 MESG6 TEXT "NEXT St 
007070 1328 444C 4320 4348 MESG7 TEXT "DLC CHANNEL(S) $° 
132E 414E 4E45 4C28 
5329 2024 
OO7TO07) 1333 2044 4340 4332 MESG8 TEXT * DCMC2 PASS$?® 
1336 2050 4153 5324 
OO7T072 1339 SO4F 5745 5220 MESG9 TEXT §POWER FREQ(HZ) S$? 
133C 4652 4551 2848 
5A29 2024 
007073 1341 434F 5059 5249 TEXT "COPYRIGHT 1976 BY HONEYWELL INFORMATION SYSTEMS INC? 
1344 4748 5420 3139 . 
3736 2042 5920 
4B4F 4645 5957 
454C 4C20 2049 
4E46 4F52 4041 
5449 4F4E 2053 
5953 5445 4053 
2049 4643 2E00 
007074 135C 4649 524D 574] FREV TEXT *FIRMWARE REVeS!? 
. 135F 5245 2052 4556 
2E24 
007075 1363 2020 2020 2024 ERMG TEXT U $¢ 
QOOTOT6 1366 434C 4120 4E4F ERMG1L TEXT *CLA NOT FOUND ON THIS CHANNEL $° 
1369 5420 464F 554E 
4420 4F4E 2054 
4849 5320 4348 
G14E 4645 4C€20 
2024 
OO7077 1376 494E 434F 5252 ERMG2 TEXT ‘INCORRECT 1D ON THIS CHANNEL $? 
1379 4543 5420 4944 
204F 4GE2Z20 5448 
4953 2043 4841 . 5 
SESE 454C 2020 
2400 
OOTO7S 1386 V$LB EQU $ 
007079 j4CO0 ORG ZERU+X#1C00!8 
007082 1C00 _ DIN EQU $ 
007083. 1000 : ORG DINe#x?*100! 
007084 1000 DIN] EGU $ 


TITLE DCMC2e REV AP CLA TEST (SAF) PAGE 55 


007085 1386 ORG VS$Lb 

007086 * 

007087 1386 0100 END DCMC2 eSTRT 

0000 ERR COUNT 
TITLE DCMC2> "REV AP CLA TEST (SAF) 
SAF 597 998C 606 607C 673 1091 1107 1619C L621C 1635C 

1640C 1661 1758C i791 1606C 1808C 1809C 1811¢C 1813¢C 1822 
1846C 1849 2086C 2415 24160 2420 242] 2425 2431 2432 


2436 2438 2443C ©2446 2452 2460 2461 6684 6685 6686 
6687 6885 6887 6894 6898 71060 7062 7080 

$B] 373 379 494 508 524 534 552 562 569 619 
626 646 651 656 670C 841 851 862 872 879 
931 1022 1032 1043 1053 1060 1117 1122 1126 1160 
1206 1216 1227 1237 1244 1294 1304 1317 1327 1334 
1479 1489 1503 1513 1520 1618 1619C 1620 1621C —_ 1628 
163) 1634 1635C 1636 1639 1640C 1643 - 1646 1649 1658C 


1724 1733 1735 1735 1766C eO61C 2273 2276 2303 2304 
2431 2436 2437C 2465C 

$B2 331 336 372 375 44068 4418 442B 4436 4446 445B 
4468 4478 448B 457B 458B 4596 4608 4618 4706 471B 
4728 4768 577B 6628 900B 908 909 925 934 951 


978 108068 1131B 12536 13446 153268 1651B 17456 2305 2308 
2384 2390 2420 2424C 2425 2427C 2451C 2455C 2461 2464C 


24796 
$B3 486B 49568 5256 5536 9708 58568 6216 62868 6476 652B 
65768 6746 825B 8426 6636 880B 930 977 981 1005B 


10238 10446 1061B 10886 11196 11236 11276 11926 12076 1228B 
12458 12836 12958 131668 1335B °1466B 1480B 150468 15216 1616B 
16298 16326 16378 1644B 16478 1650B 16628 17106 17256 1792B 
1799 1799 1801] 1818 1839 1843 1843 1844 19496 1993 
2003 2027 2430 2437C 2440 2443C 2465C 


$B4 332 333C€ 334 335C 40668 295 596C 597 598C 603 
604C 606 607C ° 634 635C 6836 684B 72368 73268 7T41B 
743B 7706 7888 8086 940B 984B 1089 1090C 1091 1092C¢ 

1104 1105¢ 1107 1108¢ 12596 12678 135268 13546 13586 1366B 


13676 13708. 13736 13866 1394B 15478 15586 1663B 168268 1688B 
17986 18008 1805 1806C 1807 1808C 18256 18336 18616 1872B 
18866 18938 2008B 20646 2074 208268 2085 2086C 20886 20988 
21056 22168 22256 223168 22586 22636 22836 23458 23696 2388B 
23946 2419 2426 2451€ 2463 2464C 
$B5 390 393 395C 4246 6728 6915 696B 7058 7138 727B 
198 T99C 814 815C 990 9968 1179 1180C 1380B 16608 
16738 16776 1686B 1753 1757 1758C 17906 180] 1805 1807 
18sd0g9Cc 1810 1810 lelic 18l2 1812 1813C 1818 1819C 18216 
1844 1845C 1846C 1848B 18538 1867B 18768 19028 20936 21038 
21328 217368 21858 218768 22298 2273 22808 2303 2312 2312 
23148 23336 2384 2385 24008 2423 2424C 
$B6 4076 620 627 632 694 | 832 833 887 896 897 
95368 95968 967B 975 1118 14016 1407B 14156 15408 1566B 
1717 1733 17706 17746 19588 1987 2140 2202. 2206 2208 
2348 2350 235468 2415 2416C 2418 2427C 2454 2455C . 


$67 7268 7408 746B 7696 948B 9908 994B 11396 11426 11786 ~ 
i 12626 12658 12706 12738 13578 13608 13768 13906 13986 14136 
14216 14428 14528 15508 15538 15618 15658 15746. 15806 1685B 
16916 16986 1765B 17816 18298 183768 18668 18758 18906 18968 
19136 1928B 21016 22286 22616 23988 2415 24598 
$R1 295 296 336 3376 338 339 342 343 348 352 
353C 358 359C 371€ 375 - 376 383C 384. 385 389 
392 394 395C 676C 708C 730C 7526 809C 8106 812B 


4422 1423C 1424. 425.426. 1427) 1428C 14382. 4863440. 
14430 14441449 14500-14530) 1454 0 s1988C)O1996C = 1998 = 20008 
2022 2023C 2113C 2116 2421 89062126 221400 21442143 2a 
2151-2162, 2468 = 22kd 2 2zk2C 2274) 02276-2277 )=— 2323 23 24C 
2325 «232702413 24568 
$R2 330C = --336 357C = -358 374 379 3818 «=. 388 393 395C 
3968 677C 694 774C «777s GK SZ SBC O2B4 1723 
1735 =1990C = 1998 = 1999 2008. = 2006C)— 2025C)=— 2027S 2061C— 240 
22080 22400 2276 )=— 2278B 02284) 0S 2304) 2308)=S 238502395 
$R3 348 349 350 351C = 405 OK 95K 99K—TZIC——SCST?2@C 
- 780 1266C 1351C 13618 1362€ 1392C 1539C 1554C 1659 1700 
1789C =91831C = 1852C)=—«1858C 01 e69C)S Bsc) =OL892C)=— «1932 01955) BOC 
1993 2003 2073 2157 2180 2181C 2208 2209C 2302 2306 
2308 = 2310C.— 2311 = 236602367) 2368 «= 2409 2410 ad 2412¢ 
2414C 2430 243324410) 244224500) 252 


$R4 344 351C 375 378B 3.3379 391 393 394 412 413C¢ 
4146 425 426 427 429 431 433 438 439C 454 
455C 456C 464 465C 467 4o8aC 482 483C 484 485C 
506 507C 508 909 945 516C 522 523C€ 934. 535 
539 540 242 543C 944. 545C€ 546 547C 562 563 — 
583 584C 586 587 588 589C 590 591C 592. 593 
994C 600 601C 611 61ec 618 625 630 631C 638 
639C 640° 641C 642 . 678C 680 681 685 686 687C 
694 7008 TOLC 702. 704 109 710C 722 724 731 
738 142 7144 755 756 763. 765 TT 7730 775 
176 789 790C 813 823 824C 828 B29C 830 831C 
833 834C 851 852 872 873 887 8888 889 890 
892 893C 894 895C 897 909 910 911 912C 916 
918 920 922 923C 925 926 934. 935 936.. 937 
938C 963 964 965C 971 972 973C 978 979 10903 


1006C 1007 1008C =: 1009 1010€ =1013 1012C =—_:1016 1017C =: 1032 
1033 1053 1054 1070 1071 1073C =: 1074 1075C 1086 1087¢ 
1094 1095 1096 1097C =: 1098 1099C =: 11101 1102C)— «11212 1133¢ 
11146 1115C = «11:16 112] 1125 1137 1140 1154 1155C—s «1156 
1157C = -1159 1163 1166 1167C =: 1168 1169C =—-_-:11190 11l91C)— 1194 
1195C —s_-1196 1197C —s-1198 1199C —-_:1216 1217 1237 1238 1281 
1262C =: 1287 1288C =: 1304 1305 1309 1310C =. 11321 1312C = 1327 
1328 1372 1374 1385 1387 1393 1395 1433 1434 1435 
1436 1437 1438C =. 14399 1440 1448 1450 1464 1465C =: 1470 
1471C = 1473 1474C = 1489 1490 1513 1514 1546 1548 1557 
x 1559 (1614 1615C = 1622 1623C =: 1624 1625C  =—s-:16 41 1642C = 1667 
1668 1669C 1676 ~~ 1681 1683 1708 17o9c) «1712 A712C)— TL 
17lac) = :1738 1739 1743 1744C 1754 1755 1767 1768 1795 
1796 1802 1803 1804C =: 1824 1826 1832 1834 1839 1840C 
1841 1860 1864 1871 1873 1987 2001 2027 4 8=—&. 20399 2060C 
2045C 2046C 2048 2050C 2051C 2053 2054 2056C £057 2059 
2060 2081 2083 2087 2089 2090C + =2097 2099 2413C 0.2214 
211sC =. 2116 2117 2118 2119 2320C 02121 2122 2123 2124 
2125C = 2126 2127 2128 2129 2147 2160 2167 2203 2204 
2224 2226, 2241 2248 2257 2259 2282 2284 2344 2346 
ganic 2348 2349C =. 2350 2351C 9.2367 2386 2387 2390 2393 
2395 . 
$R5 343 344 345 346 363C TO1C 709 710C 744 747 
749 7508 757C 811 945 954 955C 956 957C 987 


TITLE DCMC2s *REV AS 


6715 
5086 
5119 
5059 
5257 

391 
6790 
6642 


6693. 


6694 
6695 


6713 
4855 
6579 
1955 
6276 
6253 
6299 
3922 
4965 
5082 


4737 © 


6435 
6697 
6704 
6705 
6706 
6707 
6708 
6709 
6724 
2138 
2145 
2156 
2155 
4695 
6643 
6876 
6873 
6874 
6875 

464 

374 
4186 
2366 


6644 
2489 
2528 
6621 
2712 
2860 
3104 
3347 
3569 
3877 
4067 
4406 
4592 
4923 
5293 
5445 
5584 
5943 
6361 
6471 
2508 
6646 


922 
4719 
1078 
6645 
1015 
1003 

953 

982 

950 
2625 
1941 
6473 
6806 
5211 
6723 

371 

388 
6647 

303 
2021 
2057 


$R6 


$R7 


cs 


988 


1260 © 


1402 
1689 
1888 


1996C 


2162 
303¢ 
1696 
2031 
2149¢ 
304 
318¢ 
736 
933 
1221 
1498C 
1994 
2151 
2169 
329 


5107 
5051 
5144 
396B 
2202. 
1946C 
1117 
494 
509 
1636 
326 
4845 
6517 
9538 
6238 
6272 
6249 
4057 
4954 
5070 
4772 
6410 
$63 
373 
724 
1284 


1387 
2197 
21878 
21428 
215468 
21538 
4704 
614¢ 
326 


1620 
329 
43068 
3808 

4174 
7238 

18338 

23688 

3559 
327C€ 

2074 
688 

7052 
689 

7006 

7010 

7012. 

7016 

7018 

7022 

1670 

7027 

7031 

7033 

7037 

7039 

7044 

7046 

7050 

2085 
687 

2092 
919B 


107268 
1006C 
10768 
4436 
927B 
9808 
944B 
2645 
4866 
6593 
2206 
224) 
2198 
33768 
3778 
436C 
2976 
9406 
20558 


CLA TEST (SAF) 


991 


1263 


1403C 


(1695 


1894 
1997 
2163. 
306C 
1763, 
2033C 


21548 


305° 
327C 
767 
947 
l222c 
1499 
i995C 
2152 


2170 


331 


5108 
5052 
5145 


1161 
524 
935 
1717 
351C 


4846 


6518 
14018 
6239 
6273 
6250. 
4058 
4955 
5071 
4773 
6411 
646 
2083 
738 


1395 
2199 


4705 
636C 


L759 


4776 


4175 
7328 
18618 
23948 
3560 
353C 


7003 


7004 
7009 
7011 
7015 
7017 
7021 
7023 
T1024. 
7030 
7032 
7036 
7038 
7043 
7045 
7049 


7051 


688 
2347¢ 


1079C 


2646 
585B 
6594 


3242 


465C 


992 
1268 
1404 


1762 


1910. 
2003 
2164 


307C. 


1887 
2034. 
2193 
308 
400 


771c 


982 
1223 
1626 


20058. 


2158 
2171¢C 
358 


5109 
5053 
5149 


1628 
619 
626 

1796 
372 

4847 

6519 


.1540B8 


6240 
6278 
6255 
4059 
4957 
5072 
477% 
6412 

873 
2226 
1683 


1826 
2423 


4706 


2182 


4176 
1436 
187268 


4313. 
385 


7005 


7005 
7011 
7012 
7017 
7018 
7023 
7024 
7027 
7032 
7033 
7038 
7039 
7045 
7046 
7051 
7052 


(O89 
2352 


1915 


2650 
8258 
6995 


5246 


473C 


1143 
1271 


.1405C€ 
ATT 
1917 


2024¢ 
2170 
313 
1911 
2036 
2195- 
309 
423. 
835. 
1015 
1289 
1697 
2026C 
2159 
2191 
389 


5191 


1724 
84] 
681 

2305: 

17706. 

6295 


6318 


6423 
1054 


1864 


1834 


2426 


13736 
20828 


4314 
400 


7006 


1669C 


1947¢ 


1005u 


474 


1144 
1355 
1541 


~2146C 


1772C 


1918 
2044 
2240 
314C 
1926 
2038 
2196C 
310 
489 
836C 


1037 


1313. 
1719 
20628 
2160 
2192C 


5192 


1022 
852 


6296 
6319 


6424 
1238 


1873 


13868 
2088B 


1670 


2028 


108686 


904 


13598 


1542C 


i778 
1925 
2047 
2259 
946 
1991C 


2039 


311 
517 
837 

1038C 


1379 


1764 
2096C 
2161¢ 
2223 


9193 


1122. 
1033 


6301 
6324 


6425 
1328 


2099 


13948 
2098B 


1671 


11926 


1882 


1147 
1363¢ 
1548 
1779 
1955 
2049 
2386 
976 
1992C 


2040 


312¢ 

548 

856. 
1039 
1472 


1859C 


2145 
2165 
23316 


1206 
1126 


1514 


154768 
22256 


1804C 


12836 


1148C 
1368 
1551. 
1857 
1956 


2052 


2390 
986 
20028 
2060. 


315 
720 
857C 
1200 
1495 


-1868C 


2146 
2166 
2383 


1294 
1217 


1643 


15588 
2258B 


1815 


14668 


1479 
1305 


16628 
22838 


1816 


16166 


163] 
1490 


1825B 
2345B 


2090€ 


17108 


TITLE DCMC2,s 


2027 
2040 
2038 
2039 
3249 
6717 
3271 
9818 
6225 
1986 
6711 
1996 
6650 
2002 
6651 
6722 

923 

925 

907 

823 

834 

899 
6648 
6649 

379 


6508 
356 
6734 


1082 


7084 
6652 
6653 
6654 
6655 
4348 

702 
6726 


6728 


4507 
1831 
1839 
1799 
1787 


995 

326 
4362 
2475 
3831 
4575 
3858 
2427 
6662 


6656 
T1075 


7076 
7077 
5550 
2417 
2430 
2437 
2436 
2445 
2444 
2450 
2456 
2458 
2407 


4291 
5920 


6657 
6637 
6635 
4849 
4822 
6636 
6634 
6632 
6633 
6736 
2301 
2306 
2313 
6630 
6631 
6628 


6627 


6629 
6626 
7074 
6740 
5764 
5758 
6658 
2222 
2648 
2662 
2685 


CPAR2 
CPAR3 
CPAK4 
CPARS5 
CPCRCE 
CPFLG 
CPPAR 
CPRT 
CPRTX 
CRC 
CRC16 
CRCA 
CRCAC 
CRCB 
CRCFG 
CRLF 


DTAL 
OTALOP 


EDCK 
EDLINT 
EDLY 
EDPCK 
EDXY 
ENUTC 
EOP 
ER11 
ERAR 


ERF 
ERMG 


ERMG1 
ERMG2 
ERR 
ERR1 
ERK2 
ERR21 
ERR21A 
ERR3 
ERR31 
ERR34 
ERR4 
ERR5 
ERROR 


EXM1 
EXT 


FBRG 
FID 
FIOSS 
FIF3 
FIFE 
FILS 
FINS 
FIR 
FIS 
FIVSEC 
FLN 
FLN2 
FLN3 
FOBL 
FOCB 
FOCC 


FOIC 
FOLD 
FOMC 
FREV 
FRIMRV 
FVBC 
FVBY 
FWFG 
GENITZ 
GETC 


GETCI 


GETX 


"REV A? 


20628 
20298 
20358 
20378 
3214 
326 
3224 
5675 
6159 
9848 
975 
20028 
986 
20008 
BZ6C 
2418 
92168 
9178 
19028 
4428 
8886 
89168 
912¢ 
612¢ 
3818 
1 
6484 
3418 
499 
1232 
706 
1907 
931 
309 
312C 
313 
318C 
4190 
7116 
499 
1484 
530 
1049 
1509 
4488 
18278 
18356 
17976 
4958 
12078 
9528 
2918 
4355 
448B 


5540 
2416C 
24568 
2432 


2420 
2425 
2446 
24538 
24298 
72668 
12628 
14216 
16916 
19136 
4279 
5726 
5862 
1423C 
390 


4828 
4851 


2087 
2257 
742 
994C 
6728 
230968 
23078 
2282 
2393 
T22 
2097 


2387 
2224 
415 
413C 
5685 
5778 
290 
4068 
2561 
2638 


2675 


CLA TEST (SAF) 


20328 


3@15 

B32 
3225 
5676 
6160 


20058 
2006C 


899C 
2454 


4596 
8986 


976 
641C 


7087 
6485 
3478 
557 
1249 
714 
1922 
942 
2114 
2117 
2122 
2127 
4191 


900 
1485 
557 
1065 
1525 
4489 


325B 


12288: 


9936 

361B 
4356 

461B 
3792 
4559 
3848 


943 


21760 


1923 
768C 
584C 

2411 


9541 


24358 


2431 
2436 
2448B 


7408 
12658 
14428 
1698B 
19286 
4280 
5727 
5863 
1454 


4829 
4852 


2248 
2344 
1372 
733 
166068 


731 
224] 


3686 
3779 
417C 
6846 
2562 
2639 


.2676 


3217 

896 
3226 
5oTT 
6161 


L069C 


1918 
TT3C 


6486 


574 
1448 
942 
7080 
981 


4192 


697 
l712c 

558 
1066 
1526 
4491 


9538 
1245B 


4357 
4768 
3794 
4560 
3850 


945 
1762 
1925 

771Cc 

824C 
2412C 


5542 


2438 


746B 
12708 
1452B 
1765B 
21018 
4281 
5729 
5886 


4830 
4853 


1546 
755 
1790B 


1385 


2688 
5781 


16638 


2566 


2660 
2677 


3266 
1921 
3288 


1078C 


2022 
790¢ 


B46 
1484 
1440 
1083 
1921) 


4244 


846 
1730 
574 
1232 


5708 
12956 


4392 
3818 


946 
1763. 
1926 
2428 
1004C 
2417 


24406 


7696 
12736 
15506 
17816 
22286 


S751 
5887 


1557 
813 


1393 


5802. 


18006 
2667 


3267 
3289 


1900 


2031 
T9TC 


867 
1508 
1450 


1922 


4245 
847 
1744C 


a5 
1233 


6428 
13186 


4393 
3819 


947 


1764 


1927 
1087C 


2443C 


9486 
13578 
155368 
18298 
22618 


5752 
9888 


1681] 


9803 


2668 


3268 
3294 


1941C 


2034 
2146 


884 
1525 
1678 


4246 
1027 


967 
1249 


8636 
13358 
4394 


3820 


1692 
1907 


LI9GIC 


2461 


9908 
13606 
15618 
18376 
23986 


9754 
9911 


1824 


2807 


-2669 


1027 
1794 
1692 


4254 
1028 


868 
1250 


880B 
14808 


3865 


1693 
1908 


1282c 


2466B 


994B 
1376B 
15656 
1866B 


27198 
3912 


1832 


2682 


1048 


1759 


4255 
121] 


884 
1323 


10238 
150468 


3866 


1695 
19)0 


1465C 


11398 
139068 
15748 
18756 


5799 
9913 


1860 


2683 


PAGE 


1065 
1794 


4256 
1212 


885 
1340 


10448 
15218 


3867 


1696 
491) 


1615C 


11428 
1398B 
1580B 
1890B 


2801 


‘1871 


2687 


37 


1211 


1854 


1300 


1048 
1508 


1061B 
1725B 


1697 


A912 


1709C 


117868 
14138 
16858 
18968 


9861 


2081 


TITLE DCMC2s *REV AP 


5530 


6659 
6660 
2530 
2671 
6661 
6877 
6878 
2256 
2613 

421 


2247 


807 

811 

813 
6894 
6895 
6898 
6899 
2950 
3988 
3451 
2901 
3939 
3390 
1876 
1880 
1886 
1892 
1907 
1897 
1915 


1932 


1930 
741 
747 
672 
761 
752 

5416 

6573 

6915 

6916 

6921 

6922 

6930 

6931 

6934 

6939 

6940 

6953 

6971 

3292 

6906 

6910 


6914 


6919 
6925 
6923 


0928 - 


2284 
093e¢ 
6937 
2276 
6941 
6945 
2282 
6949 
6956 
6961 
6963 
6967 
6977 
6985 
6986 
6992 
6681 


4372 
5372 
1660 
1661 
1686 
1700 
1692 
1658 
2714 
2808 
2817 
2794 
2842 
1614 

482 
1815 
1816 
6604 
6662 


2395 


2389 
2399 


2380. 


2398 
1867 

727 
1059 
7066 
7067 
7068 
1069 
7070 
7071 
1072 


HANG 
HGSPD 
HISPD 
HLP1 
HLPLA 
HRTZ 
HX200 . 
HX400 
INRG 
INSY 
INVO 
INXT 
IRRG 
IRRG1 
IRRG2 
SAL 
ISAILP 
TSA4 
TSAGP 
JFQO 
JFRR 
JFYY 
JHOO 
JHRR 
JHYY 
JP2 
JP2A 
JP26 
JP3 
JP4 
IP4A 
JPS 
JP5A 
JP56 
JPTL 
JPT2 
JPT3 
JPT4 
JPTS 
KER 
KUNTA 
LCILCR 
LCLSYF 
LC2CFR 
LC2CFX 
LC3CFR 
LC3CFX 
LC3SYF 
LC4CFR 
LC4CFX 
LCSSYF 
LC7SM 
LCB1 
LCT 
LCT1 
LCTIS 
LCTZ 
LCT2FG 
LCTes 


4CT3_ 
LCT3A 


LCT35 
LCTS 
LCT4A 
LCT4S 
LCTS 
LCTSA 
LCT5S 
LCT6 
LCT6S 
LCTOTF 
LCT? 
LCTS 
LCTB8FG 
LCT9 
LCTSMS 
LCTY 


LESS 
LKBU 
LOPD 
LOPD] 
LOPbD2 
LOPD3 
LOPD7 
LOPDS 
LPLA 
LPILAA 
LPLA® 
LP1ABD 
LPLACL 


LPCBLK 


LPTA 
LPWRT 
LPWRTL 


“MARK 


MASK 


MCB2Z 
MCBS 
MCB6 
MCCB 
MCER 
MELCO 
MELCOL 
MESG 
MESG2 
MESG4 
MESGS 
MESG6 
MESG7 
MESGS 
MESG9 


5547 
398C 
399C 

2701 

2659 
299 
688 
689 
8088 

2585 
4018 
7418 
634 
8128 
8108 
606 
604C 

597 
596C 

2922 

3959 

3423 

2947 

3984 

3448 

18748 

18786 

188168 

18898 

1456B 

18958 
950 

12748 

19248 
73968 
745B 
7828 
798 
7488 

5405 

6548 
439C 
488C 
g29c 
831C 

1113 

1L15C 


613C . 


10086C 
1020C 
1286C 
1623C 
3238 

2094 

498 

4850 
845 

834C 
836C 
O92 | 
228568 
678C 


- 1026 


22868 
1017C 
1298 

227868 
izseec 
1483 

1474C 
1471C 
1674 

1467C 


1728 
1718C 


41ic 


2352 
4380 
5388 
17018 
1658C 
16848 
16948 
1619 
16298 
2850 
2839 
2805 
2740 
2832 
4718 
4408 
1806C 
1808C 
6617 
487C 
1920¢ 
23968 
23926 
239768 
6968 
23896 
18638 
72568 
289 
2162 
2184 
2207 
421 
328 
2478 
298 


CLA TEST (SAF) 


5548 
2155C 
1013 
2702. 


2660 


305 
1670 
1671 
13586 
2586 


4148 


1259B 
8176 


4107 
635C 
1091 
799C 
2923 
3960 
3424 
2948 
3985 
3449 


1846C 


19098 
158168 


752B 


5406 
6549 
455C 


947C | 


889 
895C 
1143 
1148 
639C 
1070 
L075 
1312C 
1642C 
3239 


528 
507C 
866 
1199C 
857C 


775 
1047 


1038¢ 
1321 


1310C 
1507 

1498C 
1496C 


1531C 


1739 
412 


4381 
5389 


L621C 
16328 
2851 
2840 
2806 
2741 
2833 


457B 
1809C 
lelic 
6618 

B27C 
1922. 


7056 
- 16656 


5952 
2188 
2212C€ 
2703 
2664 
317 
1794 


13678 
2588 
4348 


12678. 


1105¢ 


815C 
2925 
3961 


3426 


2952 
3986 
3453 


19016 


17838 


2408 
6550 
468C 


893C 
1197C 
1146C 
1157¢ 

Tol 
1073C 


1430 

3240 
556 
516C 
883 


1201¢ 


1064 
1338 


1524 


1754 
416. 


4382 
5390 


1635C 
16378 
2853 
2844 
2810 
2742 
2834 


470B 
1813C 


6619 
923C 


1930C © 


1136 


586 
1815 


45268 
13546 


1090C 


19166 


656] 
939 


1195C 
1155C 


1169C 
1110C 


3260 


973 
3923C 
1210 


l222c 


1768 
963 


1640 
16448 


2813 


942 


L677b6 


992 
2092 


13666 


1180C 


1919B 


6562 
»943C 


L1l67C 
2200 


3261 


245C 
1231 


971 


16906 
16476 


2814 


1012C 


18488 


PAGE 


1094 


16886 18865 1893B 


6563 


3263 3281 3282 3283 


1248 


1411 1419 1572 1578 


16508 


2815 


1617¢ 1692 L71L3C 1759 


18538 


58 


1779 


1907 


eee picasa hades etait a eek ka ee 


TITLE DCMCe» 


6663 


2262 
2258 
2229 
3650 
6031 
3680 
6061 
1177 

544 


"5734 


5740 
363 
796 

3519 

3997 

6756 

2959 

4318 

4211 

4662 

5363 

4269 
290 

3316 

4384 

1790 
678 
680 
684 

4155 

5147 

6773 

5244 

4240 

5197 

1259 

1263 

1266 

1271 

1274 

1190 

6664 
451 
359 

5032 

7064 

2211 

2199 

2196 

2207 


2179 


3496 
6666 
6665 

553 

863 
1044 
1228 
1318 
1504 
1400 
1392 
7005 
7006 
6400 
6667 


6597 
3482 

342 
3460 
3349 
6668 

991 

960 

968 
3078 
2982 
2343 
9876 
5869 
5901 
5894 
5851 
5845 
3033 
3055 
3010 
4041] 
4709 
6669 
6670 
4019 
1567 
1554 
1551 
1563 


- 1566 


1581 
1578 
375 
5238 
438 
467 
1539 
6671 
2469 
336 
6684 


MSBS 


NXSPD1 
NXSPD2 
NZ7 
QRUD 
OSPTBL 
OVCK 
OVLY 
OVR 
PARL 
PAR2 
PAR3 
PAR4 
PARS 
PAREKF 
PARFG 
PCH 
PDRS 
PGCX 
PLAF 
PRLT1 
PRLT3 
PRLT5 
PRLT? 
PRTLSP 
PRYT 
PSFG 
PTTY 
QAl 
WAZ 
GAZ 

7 WAS 
“QAS 
@A6 
QT] 
aT2 
RAG] 
RAG2 
RAN 
RANGE 


RAY 
RCCH 
RCK1 
RCKSY 
RCP3 
RCRC 
RCRCG 
RCRRL 
RCRXL 
RCV 
RCVA 
RDLCT 
REL 
RELA 
Rez 
REZA 
RE3 
REZA 
RECV} 
RECV2 
RECV3 
REND 
RERK 
RLCTAD 
RLCTRG 
RMCH 
RNCK1 
RNCK4 
RNCK4A 
RNCK4B 
RNCKS 
RNCK6 
RNCK9 
RON 
ROTR 
RTST 
RTST1 
RUNCK 
RUNFG 
SAFF 
SALT 
SAVL 


‘REV AY 


2156 
2214C 
22608 
22426 
22278 
3629 
6010 
3659 
6040 
1104 
9146 
2695 


334 
603 
3489 
4013 
620 
2975 
4307 
4084 
4634 
5335 
4205 
2886 
3308 
4376 
193468 
7786 
11508 
6826 
4181 
50l2 


5233 
4230 
5156 
18838 
12618 
12648 
12698 
12726 

4456 
1193C 
4328 
386B 
5055 
7060 
22018 
21898 
21948 
22058 
7708 
3513 
397C 
938C 
5658 
8758 
10568 

42408. 
13308 
151668 
13968 
13688 

688 
689 
6445 
631 
1922 
6587 
3387 
3408 
3476 
3559 
965C 
9898 
955C 
957C 
3021 
2898 
4078 


5831 
5841 


5865 
2995 
3006 
3027 
4029 
4683 
2349C 
2351 
3935 
1542C 
15456 
15496 
15606 
15568 
15738 
15716 
3786 
5218 
449B 
4756 
18986 
1469 
2460 
3546 
1986C 
2256C 
2382C 


CLA TEST (SAF) 


2164 


22498 


3630 
6011 
3660 
604] 
11826 
5418 
5696 


8016 
3490 


—64014 


627 
2976 
4308 
4085 
4635 
5336 
4206 


3309 
4377 


11626 
1179 


4182 
5013 


5234 
4231 
51457 


4606 
1252c 


5056 


7888 
39514 

659C 
2057 


6446 
632 


6588 
3388 


3477. 
3560 
987 


3022 
2899 
9598 


5832 
5842 


3866 
2996 
3007 
3028 
4030 
4684 
2352 
2352 
3936 


1552B 


15646 


15768 


5219 


1530C 


2007 
2262 
2399 


2171C 


3631 
6012 
3661 
6042 


5697 


6895 
3491 
4016 


2977 
4310 
4086 
4637 
5338 
4207 


3311 
4378 


11648 
4188 
5015 
5235 


4232 
5158 


L715C 


5057 


3921 
784% 


6450 
932 


6590 
3392 


3478 
3561 


3024 
2903 
9678 


5834 


3843 


5867 
2997 
3012 
3029 
4031 
4686 


3937 


157968 


S221 


1897 


2021€ 
2272¢ 


2190 


5755 


3536 


4342 


4237 


4286 


1741C 


942 


3043 
3094 


14078. 


5890 
5915 


3050 
3072 


4036 


1948C 


2063 
2279 


2192C 


59756 


3537 


4343 
4238 


42867 


1880 


982 


3044 
3095 
161568 
5691 
5916 


3051 
3073 


4037 


2431C 
2301C 


2196C 2197 


5760 
3538 


4344 
4242 


4293 


1942C 


1422 1428C 


3045 3066 
3097 

156668 17748 
5892 

S9LT 


3057 
3074 


4043 


2131. 238C 


2313. 2322C 


PAGE 59 


2199 2211 2213C 


1840C (1907 1921 


3067 3069 


2172. 2239C 2247C 
2332 2343C 2353 


TITLE DCMC2+ 'REV.AS 


6685 


- 6686 


6687 
1101 


6823 


1137 
1140 
1143 
1152 
1166 
6676 
2080 
2083 
5646 


5617: 


5002 
4431 
2779 
3184 
5501 
3T4? 
6738 
6737 


2272. 


2461 

713 
3543 
6677 

454 
4613 
5314 
7065 
3201 
3228 
6849 
2467 

668 

600 


SAV2 


SAV3 
SAV4 
$B1T1 
SBITBL 
‘SBTE 
SBTEI 
SBTE2 
SBTE3 
SBTE4 
SBTFG 
SCLS 
SCLS1 
SCY] 
SCYZ 
SDBB 
SDRR 
SDSY 
SDVV 
SDWW 
SDZZ. 
SECH 
SECL 
SETLCT 
SETNR 
SGCCB 
SHFL 
SHORT 
SHTST 
SINK 
SINKL 
SLAF 
SNCL 
SNC3 
SPACE 
SPACE1 
SPDTLP 
SPSYT1 
SPSYTC 
STi 
S73 
STBITE 
STCR 
57106 
STIQ 
STIQL 
STIGz 
ST1Q3 
ST1O4 


ST105 


STMD 
STMD1 
STMD2 
STMD3 
STOP 
STP 
STP3 
STPFG 
STRI 
STSP1 
SWT 
SXB1 
SXBC 
SYC 
SYCH 
SYCT 
SYLSPO 
SYLSP1 


SYLSP2. 


SYLSP3 


SYLSP4 


SYLSP5 
SYLSP6 
SYLSPT7 
SYN188 
SYNC 
SYNSP 
SYNSP] 
Tl 

T10 
Tle 
T1l4 
T14A 
T15 
T15A 
Tl6 


3569 
552 
7626 
7656 


8646 
874B 


1035B 
10248 
10348 
10458 
10556 


1307B 

5118 

5058 
12968 
13068 
13198 
13298 


149268 
14818 
5413 
5573 
14918 
15056 
15158 
5108 
496B 


5718 
15228 
1336B 
10146 

8818 


CLA TEST (SAF) 


995 


78l 
2430. 


LL1LC 
17988 


4993 
4122 
2770 
3175 
5492 
3738. 
165 
763 


16738 — 


3507 
456C 
4626 

4660 

5361 


3138 
3246 
2463. 


62868 
6899 


4588 
680 


137068 


24778 


4756 
1343¢ 


2439 | 


9719 
2631 
3638 


656 
651 
814 
7878 


5414 
3574 


10628 


L752¢ 
1787C¢. 


2442 


1130C 


4994 


4123 


2772 
3176 
5493 
3739 
1099C 


L097C_ 


18218 
3508 
466C 


4664 
5365 


3139 


' 3251 


647B 


2204 


4757 
1877 


2447 
5720 


5632 
5642 


379 
862 


5418 
5576 


1762 


1933. 
2458 


1943¢ 


1137 
1140 
20938 


3530 
513 


5432 


3312 


6528 


4784 
1944 
2462 


9730 
9660 


1060 
1043 


2072C 


3531 
609 


5433 
3313 


657B 


4785 
9731 


5661 


1244 
1227 


2060C — 


3533 
786 


5434 


3318 


112968 


4786 


2736 
5664 


1334 
1317 


2104 


3336 


11238 


4810 


1520 
1503 


2179¢ 


3337 


11278 


4811 


1649 
1646 


PAGE - 


2215 


3338 


4812. 


60 


2222¢ 


TITLE DCMC2+ "REV At CLA TEST (SAF) PAGE 61 


1207 T39A 12198 
525 3A 537B 
534 14 5268 

1216 140 12088 

1220 T40A 12188 

1237 141 122968 

1244 742 12398 

1252 745 12468 
538 T4A 5368 
562 15 5548 
569 Té6 564B 
841 18 
842 TBA 8548 
851 19 8438 
855 T9A 85368 


5278 TAMPA 5283 5284 5286 

4475 TCMBI 4445 4446 4450 4572 4573 4577 
2323 TDLA 23318 

2327 TOLAI 23298 

2330 TDLA3Z 23286 


2322 TOLAY 4246 7278 1380B 16866 16678 18766 21036 22298 

1791 TGl 1788C 1795 

B22 = TGe 908 1819C 

1849 1G3 930 977 1845C 

5805 TKF 579] 5792 3796 

5794 TKFN 5814 9815 5816 

2111 TKSEC 21856 

6672 TLOC 306C 315 359C 360 422 425 1992C 2004 2€045C 2048 


2050C 2053 2115C 2119 2120C 2124 2125C 2129 2181C 2183 
2209C 2210 

6828 TLTBLA 1616 

6833 TLTBLC 1634 

6838 TLTBLS 1639 

685lL TLUTB2 1671 

6846 TLUV35 

6843 TLUWB3 


6448 TONI 6438 6439 6440 
4069 TOP 4313 4314 4315 4320 
4408 TOP] 4583 4584. 4586 
4469 TOPe2 4457 4458 4459 
4448 TOP3 4429 4430 4432 
6673 TPl 1363C 1425 1433 2148 2158 
6674 TP2 422 1400C 1434 1438C 1444 1625C 1676 2150 
5129 TRCV 5115 5116 5117 
6675 TRMRK 1716C 1742C¢ 1862 
2564 TRNX 2610 2611 2615 
767 TRYH 76468 
6884 TSAl 332 
6886 TSA2 6884 
6888 TSA3 6886 
780 TSNL 7008 7916 11706 


1422 TSTF2 14206 

1408 TSTF2B8 1403C 

1358 TSTF3 13566 

pos 1361 TSTF4 13596 

1385 TSTF4A 1361b 
1448 TSTF4C 143168 14458 

1450 TSTF4D 14558 

1453) TSTF4E 145168 

4443 TSTkS £4418. 

1440 TSTFoA 14468 

1415 TSTF7K 14126 

1416 TSTF8B 1405C 


774 TYXL 7668 
1732, Ul 17268 

1717 U2 17408 

1725 U3 17368 

1738 U5 17346 

4788 YOUR 4679 4680 = 4682 

4816 UND 4797 4798 4800 

1464 UOKNTH 4478 

7078 VS$LB 7085 

7001 wcP 2092 

7003 WCPl 497 527 555 572 1297 1320 1337 
7009 wCP2 844 865 882 1209, 1230/1247 
7015 WCP3 1025 1046 1063 

7021 wWCP4 1682-1506 =: 1523 

7027 WCP5 1670 

7028 WCP5B 1671 

7030 wCPe: 

7036 WCP7 

7043 WCP8 

7049 WCP9 1727 

6699 wOB3 

6700 wD83B 


6679 WDBFG 1364 1468C 1494C 1529¢€ 1544 1555 1570 1575 1945C 
6701 WwDBV35 
6702 wDBV5B 


6680 XCRC 973C 991 

4971 XMBB 4999 3000 5004 

1708 XMMSL 472B 

3763 XMNS 3709 3710 3712 3853 3454 3855 
4100 XMRR 4128 4129 4133 

6863 XMSB 1753 


1751 XMSCK 1885B 
1758 XMSCK1 17566 
1759 XMSCK2  1758C 
1767 XMSCK3 17618 
1775 XMSCK4 = -1772C 
1782 XMSCK5 17698 17808 


2748 XMSY 2775.0 2776277 

3153 XMVV 3181] 3182 3186 

5470 XMWW 5498 5499 5503 

3716 XM2Z 3744-3745 3749 

3804 XNPY 3770 =. 3771 3778 3825 - 3826 3833 

3776 XPY 3797 «=—-3798 )=— 3799 | 

3696 XPYQ 3616 =. 3617 3622 3647. 3648 3652 3677 3676 3662 
6171 XPYZ 6194 6195 6200 | 
6868 XSSB 1757 

64ll 22Z 

6137 232 6132, 6133 6135 

6078 247 6000 6003 6003 6028 6029 6033 6058 6059 6063 


6092. 248 5979 5980 5981 


TITLE DCMC2, ¢ 


272 ZERO 
6322. ZEXT 


ZHCOMM 


ZHIAF 


) 


ZHISAZ 
ZHNTSA. 


ZHPFR 


ZHRTCC 


ZHRTC 

ZHRTC 

ZHTHL 

ZHWDT 

ZVSC 

ZVsCO 

ZVSER 

ZVSF 

ZVSHR 

2VSIA 

ZVsID 

ZVS$IH 

ZV$1Z 

ZVSML 

ZVSML 

ZVSPC 

zVsac 

ZVSRD 

ZVST 

2VsTC 

ZVSTD 

ZV$TH 

ZVSTH 

ZVSTT 

6198 ZXZ1 

678 LABELS 

3109 REFERENCE 
7087 RECORDS 
1 U FLAGS 
O M FLAGS 
43 N FLAGS 


I 
L 
5 
Cc 


R 
W 
H 


REV At 


278 
6186 
6288 
277 
274 
27% 
273 
277 
275 
276 
276 
273 
275 
9428 
9498 
241768 
3266 
273 
42268 
29968 
3298 
28668 
23528 
6888 
4518 
29868 
2868 
21848 
356B 
4168 


" 3608 


Z 
Y 


SS) 


244568 
275 
6168 


CLA TEST (SAF) 


285 
6187. 
6290 


598C 
333¢ 


T34C 


601C 
335C 


169268 
169968 


17946 


6898 


328B 
2896 
21986 
3826 
21838 
2444B 


287C 
6169 


7079 
6189 
6310 


607C 


136 
1102C 


17598 


17668 


19216. 


16708. 


42168 
6608 
22078 
415B 
21978 


2476 
6173 


6 CROSS REF VERSION L = 24 SEPT» 1976 
RS LINKER VERSION 5000 04/12/78 205266 EST WED 


LINK MAP FOR D 
START 
LOw 
HIGH 
CURRENT 

*LOC DEFS 

ZHCOMM 
#DCMC2 | 
ZHPFR 
ZHTSA 
ZHNTSA 
ZHRTC] 
ZHRTCC 
ZHRTCL 
CHWDOTC 
ZHMERC 
ZHIAFB 
ZHTH29 
ZHTH28 
ZHTH27 
ZHTH26 
ZHTHZ5 
ZHTH24¢ 
ZHTH23 
ZHTH2e. 
ZHTH21 
ZHTH20 
ZHTHL9 
ZHTH18 
ZHTHL7 
ZHMEMP 
ZHTHL6 
ZHLERR 
ZHTHI15 
ZHNRES 
ZHTH14 
ZHPMEM 
ZHTHL3 
ZHP=OP 
ZHTHL2 
ZHTHL1 
ZHTHLO 
ZHTHY 
ZHTHS 
ZHTHT 
ZHTH6 
ZHOVFL 
ZHTHS 
ZHOP“N 
ZHTH4 
ZHTH3 
ZHSC™N 
ZHTH2 
ZHTRC 
ZHTH1 
ZHMCL 
ZHISAZ 
ZHIVOS 
ZHTVBS 

*ZVSF 
ZVSF 

*ZVS1H 
2VS$1D 
2VSIH 
ZVSIAD 
ZVS~"2 
ZVS"-"3 

*ZVSTH 
ZVSTH 
Z2V$TD 
Z2VSTHEZ 


CMC2 
0100 
0000 
LCFF 
1C9A 


0000 
0000 
0000 
000¢ 


REV A 


0010. 


0014 
0015 
0016 
0017 
OOF 
0020 
2063 
0064 
0005 
0066 
Q0607 
0068 
0069 
OO6A 
006B 
Q06C 
006d 
QOO6E 
OOQ6F 
QO6OF 
0070 
0070 
0071 
0071 
0072 
0072 
0073 


0073. 


0074 
0075 
0076 
0077 
0078 
0079 
OO7A 
OOTA 
0078 
0078 
oo7C 
007D 
007b 
OO7TE 
OO7E 
OO7F 
OO7F 
0080 
0080 
0080 
1386 
1386 
1394 
1399 


1394 


139E 
1366 
13C8 
1420 
4420 
1462 
1455 


7081 
6213 
6311 


L092C 
756 


19076 
19146 


16716 


11298 


2449B. 


21826 
219968 


6221 


6214 
6313 


11086C 


2324C 


19228 


19298 


18156 


24788 
22108 


6222. 


PAGE 


6216 6264 6265 6267 


2327 


18166 20928 


6227 


62 


6287 


se needa al do 


TITLE DCMC2, 


*ZVSTA 
ZVSIA 
ZVSARG 
ZVSABF 
2V$""1 
ZVSIAV 

*ZVS$PCH 
ZVSPCH 

*ZVSMLW 
ZVSMLW 
ZV$MLR 

eZV$C 
ZVSC 
ZV$CO 

*Z2VST 
ZVSOC 
Z2VS$TC 
ZVS$T 
ZV$Q 

*ZVSER 
ZVSER 
ZVSTA 
ZVS—"0 

*ZVSGP 
ZVSGP 
ZV$""4 

#ZVSHA 
ZVSHA 
ZVS$HZ 
ZV$HS 

*ZVSHD 
ZV$HD 

*ZVSBRK 
ZVSBRK 

*ZVSRD 
2VS1Z 
ZVSTTY 
ZV$RD 
ZV$SV1 
ZV$SV3 
ZVSAF 
ZVS$SV2 
ZVSTID 
ZVSCF2 
Z2VSTK 
ZVSRAR 
ZV$ST1 
ZVSRCC 
ZVS6UD 
ZVSOLB 
ZVSRCB 
ZVSNSR 
ZVSSTR 
ZVSBKF 
ZVSOTP 
ZVSBKS 
ZVSHR 
ZVSLR 
ZVSDAT 


CVSHM. 


ZVSHRU 
ZVSHRL 
EVSLRU 
ZVSLRL 
éVSHBD 
ZVSCF1 
LVSe"5 
ZVSRMD 
ZVSMCP 
HIBAUD 
ZVSRAW 
ZVSROT 
2VSCTL 
2V$61 

2VS$TST 
ZVSMDC 
ZVSRI9 
Z2VSISA 
ZVSUTH 
ZVSZRO 
2V$85H 


» 2VSCPU 


ZVSR50 
ZVSROO 
ZVSRT 
ZVSALL 
*MLCHPG 
MLCHPG 


ENDCHP 


147D 
1480 
Lo2F 
1531 
14EC 
L47E 
153¢ 
153C 
163E 
L63€ 
166D 
1685 
1685 
16A8 
1669 
16b6 
16C2 
1669 
1le6cb 
1e@EA 
l6EA 
1716 
LOFD 
175A 
175A 
177A 
1786 
1786 
1790 
1786 
176F 
L76F 
L7FL 
L7F1 
180B 
1845 
L8lE 
1808 
19E0 
1A00 
1e81Cc 
19FO 
1810 
1827 
1823 
1824 
1828 
1829 
l8lF 
1828 
182c 
1830 
LY2eE 
1833 
18b2 
1832 
183A 
1837 
181A 
1881 
1834 
1835 
1836 
1837 
1838 
1626 
183D 
1816 
1839 
1838 
1825 
LA3C 
1822 
195D 
LA92 
LAe6 
1C64 
1840 
1836 
L8brF 
18Cl 


1821 


L89F 
LBAA 
1BA1 
1820 
1C69 
1069 
1C9A 


"REV At 


REVe 7 


REVe 500 


REVe 7 


TeV 


CLA TEST (SAF) 


PAGE 


63 


